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25.4.1. Time Functions 

Time is represented in three different ways in Common Lisp: Decoded Time, 
Universal Time, and Internal Time. The first two representations are used primarily 
to represent calendar time and are precise only to one second. Internal Time is 
used primarily to represent measurements of computer time (such as run time) 
and is precise to some implementation-dependent fraction of a second, as specified 
by internal -time-un1ts-per-second. Decoded Time format is used only for 
absolute time indications. Universal Time and Internal Time formats are used for 
both absolute and relative times. 
Decoded Time format represents calendar time as a number of components: 

• Second: an integer between 0 and 59, inclusive. 

• Minute: an integer between 0 and 59, inclusive. 

• Hour: an integer between 0 and 23, inclusive. 

• Date: an integer between 1 and 31, inclusive (the upper limit actually depends 
on the month and year, of course). 

• Month: an integer between 1 and 12, inclusive; 1 means January, 12 means 
December. 

• Year: an integer indicating the year A.D. However, if this integer is between 0 
and 99, the "obvious" year is used; more precisely, that year is assumed that 
is equal to the integer modulo 100 and within fifty years of the current year 
(inclusive backwards and exclusive forwards). Thus, in the year 1978, year 28 
is 1928 but year 27 is 2027. (Functions that return time in this format always 
return a full year number.) 



Compatibility note: This is incompatible with the Lisp Machine Lisp definition in two 
ways. First, in Lisp Machine Lisp a year between 0 and 99 always has 1900 added to it. 
Second, in Lisp Machine Lisp time functions return the abbreviated year number between 0 
and 99 rather than the full year number. The incompatibility is prompted by the imminent 
arrival of the twenty-first century. Note that (mod year 100) always reliably converts a 
year number to the abbreviated form, while the inverse conversion can be very difficult 



• Day-of-week: an integer between 0 and 6, inclusive; 0 means Monday, 1 means 
Tuesday, and so on; 6 means Sunday. 

• Daylight-saving-time-p: a flag that, if not nil, indicates that daylight saving 
time is in effect. 
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second, minute, hour, date, month, year, day-of-week, daylight-saving-time-p and 
time-zone. 



Compatibility note: In Lisp Machine Lisp time-zone is not currently returned Consider 
however, the use of Common Lisp in some mobile vehicle. It is entirely plausible that the' 
time zone might change from time to time. 

get-universal -time [Function] 
The current time of day is returned as a single integer in Universal Time format. 

decode-unlversal-tlme universal- time ioptlonal time-zone [Function] 

The time specified by universal-time in Universal Time format is converted to 
Decoded Time format. Nine values are returned: second, minute, hour, date, 
month, year, day-of-week, daylight-saving-time-p, and time-zone. 

Compatibility note: In Lisp Machine Lisp time-zone is not currently returned. Consider 
however, the use of Common Lisp in some mobile vehicle. It is entirely plausible that the 
tune zone might change from time to time. 

The time-zone argument defaults to the current time zone. 
X3J13 voted in January 1989 <47) to specify that decode-un1 versal -time, like 
encode-un1 versa 1 -time, ignores daylight saving time information if a time-zone 
is explicitly specified; in this case the returned daylight-saving-time-p value will 
necessarily be ni 1 even if daylight saving time happens to be in effect in that time 
zone at the specified time. 

encode-uni versal -time second minute hour date month year [Function] 
ioptlonal time-zone 

The time specified by the given components of Decoded Time format is encoded 
into Universal Time format and returned. If you do not specify time-zone, it 
defaults to the current time zone adjusted for daylight saving time. If you provide 
time-zone explicitly, no adjustment for daylight saving time is performed. 

Internal -time-un1ts-per-second [Constant] 

This value is an integer, the implementation-dependent number of internal time 
units in a second. (The internal time unit must be chosen so that one second is an 
integral multiple of it.) 
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• Time-zone: an integer specified as the number of hours west of GMT (Greenwich 
Mean Time). For example, in Massachusetts the time zone is 5, and in California 
it is 8. Any adjustment for daylight saving time is separate from this. 

X3J13 voted in March 1989 (178) to specify that the time zone part of Decoded 
lime need not be an integer, but may be any rational number (either an integer or 
a ratio) in the range -24 to 24 (inclusive on both ends) that is an integral multiple 
of 1/3600. 



Rationale: For all possible time designations to be accommodated, it is necessary to allow 
the time zone to be non-integral, for some places in the world have time standards offset 
from Greenwich Mean Time by a non-integral number of hours. 

There appears to be no user demand for floating-point time zones. Since such zones 
would introduce inexact arithmetic, X3J13 did not consider adding them at this time. 

This specification does require time zones to be represented as integral multiples of 1 
second (rather than 1 hour). This prevents problems that could otherwise occur in converting 
Decoded Time to Universal Time. 



Universal Time represents time as a single non-negative integer. For relative 
time purposes, this is a number of seconds. For absolute time, this is the number 
of seconds since midnight, January 1, 1900 GMT. Thus the time 1 is 00:00:01 
(that is, 12:00:01 A.M.) on January 1, 1900 GMT. Similarly, the time 2398291201 
corresponds to time 00:00:01 on January 1, 1976 GMT. Recall that the year 1900 
was not a leap year; for the purposes of Common Lisp, a year is a leap year if and 
only if its number is divisible by 4, except that years divisible by 100 are not leap 
years, except that years divisible by 400 are leap years. Therefore the year 2000 
will be a leap year. (Note that the "leap seconds" that are sporadically inserted by 
the workTs official timekeepers as an additional correction are ignored; Common 
Lisp assumes that every day is exactly 86400 seconds long.) Universal Time format 
is used as a standard time representation within the ARPANET; see reference [22]. 
Because the Common Lisp Universal Time representation uses only non-negative 
integers, times before the base time of midnight, January 1, 1900 GMT cannot be 
processed by Common Lisp. 

Internal Time also represents time as a single integer, but in terms of an 
implementation-dependent unit. Relative time is measured as a number of these 
units. Absolute time is relative to an arbitrary time base, typically the time at 
which the system began running. 



get-decoded- time [Function] 
The current time is returned in Decoded Time format. Nine values are returned: 
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Rationale: The reason for allowing the internal time units to be implementation-dependent is 
so that get-internal -run-t1me and get-1nternal -real -time can execute with minimum 
overhead. The idea is that it should be very likely that a fixnum will suffice as the returned 
value from these functions. This probability can be tuned to the implementation by trading 
off the speed of the machine against the word size. Any particular unit will be inappropriate 
for some implementations: a microsecond is too long for a very fast machine, while a 
much smaller unit would force many implementations to return bignums for most calls to 
get-Internal -time, rendering that function less useful for accurate timing measurements. 



get-1nternal -run-time [Function] 

The current ran time is returned as a single integer in Internal Time format. The 
precise meaning of this quantity is implementation-dependent; it may measure real 
time, run time, CPU cycles, or some other quantity. The intent is that the difference 
between the values of two calls to this function be the amount of time between 
the two calls during which computational effort was expended on behalf of the 
executing program. 



get-1nternal -real -time [Function] 

The current time is returned as a single integer in Internal Time format This time 
is relative to an arbitrary time base, but the difference between the values of two 
calls to this function will be the amount of elapsed real time between the two calls, 
measured in the units defined by internal -tlme-units-per-second. 

sleep seconds [Function] 

(sleep n ) causes execution to cease and become dormant for approximately n 
seconds of real time, whereupon execution is resumed. The argument may be any 
non-negative non-complex number, sleep returns nil. 



25.4.2. Other Environment Inquiries 

For any of the following functions, if no appropriate and relevant result can be 
produced, nil is returned instead of a string. 



Rationale: These inquiry facilities are functions rather than variables against the possibility 
that a Common Lisp process might migrate from machine to machine. This need not happen 
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dribble ^optional pathname [Function] 

(dribble pathname) rebinds *standard-input* and «standard-output*, and/or 
takes other appropriate action, so as to send a record of the input/output interaction 
to a file named by pathname. The primary purpose of this is to create a readable 
record of an interactive session. 

(dribble) terminates the recording of input and output and closes the dribble 
file. 



apropos string ^optional package [Function] 
apropos-list string ^optional package [Function] 

(apropos string) tries to find all available symbols whose print names contain 
string as a substring. (A symbol may be supplied for the siring, in which case the 
print name of the symbol is used.) Whenever apropos finds a symbol, it prints 
out the symbol's name; in addition, information about the function definition and 
dynamic value of the symbol, if any, is printed. If package is specified and not 
nil, then only symbols available in that package are examined; otherwise "all" 
packages are searched, as if by do-all-symbols. Because a symbol may be avail- 
able by way of more than one inheritance path, apropos may print information 
about the same symbol more than once. The information is printed to the stream 
that is the value of *standard-output*. apropos returns no values (that is, it 
returns what the expression (values) returns: zero values). 

apropos -list performs the same search that apropos does, but prints nothing. 
It returns a list of the symbols whose print names contain string as a substring. 

25.4. Environment Inquiries 

Environment inquiry functions provide information about the environment in which 
a Common Lisp program is being executed. They are described here in two categories: 
first, those dealing with determination and measurement of time, and second, all 
the others, most of which deal with identification of the computer hardware and 
software. 



25.4.1. Time Functions 

Time is represented in three different ways in Common Lisp: Decoded Time, 
Universal Time, and Internal Time. The first two representations are used primarily 
to represent calendar time, and are precise only to one second. Internal Time is 
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HiKilTT 1 meaSU T emS ° f C ° mpUter time (such as ™ time) and 
s precise to some implementation-dependent fraction of a second, as specified by 

internai-tiae-units-per-second. Decoded Time format is used only for absolute 

r:,rr^r Tirae ~ , — Time *— - - * - 

Decoded Time format represents calendar time as a number of components: 
• Second: an integer between 0 and 59, inclusive. 
► Minute: an integer between 0 and 59, inclusive. 
' Hour, an integer between 0 and 23, inclusive. 

ZHT i t gCr , betWeen 1 31 > incIusiv e (the upper limit actually depends 
on the month and year, of course). ^ 

Mon^n integer between 1 and 12, inclusive; 1 means January, 12 means 

LT^theS'' — ^ ^ A H ° WeVer ' if «"* inte « er is ^ween 0 
2tTJ% ^ ,S USed; m ° re Precisel y> * at V* is turned that is 

Zt h t 7™° 100 30(1 WiAin fif * of * e «■"* year (in- 

clusive backwards and exclusive forwards). Thus, in the year 1978, year 28 is 

a full yl^, 2027 - (FUnCti ° nS ^ retUm *" 10 *»* *^ «— 



Compat.bd.ty note: This is incompatible with the ZetaLisp definition in two ways First 
ti„^ 7 3 ^ betWCen ° and 99 ^ has 1900 added to it. Second, in S 

vT n ; m C r S ^ tUni ^ ab ^ Viated ^ nUmber ^ 0 - d 99 rather ifTS 
year number. The .ncompaubility is prompted by the imminent arrival of the twenty-firs 

luim, wniie uie inverse conversion can be very difficult. 

• Day-of-week: an integer between 0 and 6, inclusive; 0 means Monday, 1 means 
Tuesday, and so on; 6 means Sunday. 

' lt l l^ Vin8 ' time ' p: a flag that ' if not nil ' indicates ** da ^ ht savin * 

• ^-^e: an integer specified as the number of hours west of GMT (Greenwich 
Mean Time). For example, in Massachusetts the time zone is 5, and in California 
it is 8. Any adjustment for daylight saving time is separate from this. 

time7 U r^l Ti r reprcSent ! time 38 a sin « Ie non-negative integer. For relative 
Ume purposes, this is a number of seconds. For absolute time, this is the number 
of seconds since midnight, January 1, 1900 GMT. Thus the time 1 is 00 00 01 
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(that is, 12:00:01 a.m.) on January 1, 1900 GMT. Similarly, the time 2398291201 
corresponds to time 00:00:01 on January 1, 1976 GMT. Recall that the year 1900 
was not a leap year; for the purposes of Common Lisp, a year is a leap year if 
and only if its number is divisible by 4, except that years divisible by 100 are not 
leap years, except that years divisible by 400 are leap years. Therefore the year 
2000 will be a leap year. (Note that the "leap seconds" that are sporadically inserted 
by the world's official timekeepers as an additional correction are ignored; Common 
Lisp assumes that every day is exactly 86400 seconds long.) Universal Time format 
is used as a standard time representation within the ARPANET; see reference [8]. 
Because the Common Lisp Universal Time representation uses only non-negative 
integers, times before the base time of midnight, January 1, 1900 GMT cannot be 
processed by Common Lisp. 

Internal Time also represents time as a single integer, in terms of an implemen- 
tation-dependent unit. Relative time is measured as a number of these units. Ab- 
solute time is relative to an arbitrary time base, typically the time at which the 
system began running. 

get-decoded -time [Function] 

The current time is returned in Decoded Time format. Nine values are returned: 
second , minute, hour, date, month, year, day-of-week, daylight-saving-time-p, and 
time-zone. 



Compatibility note: In ZetaLisp the time-zone is not currently returned. Consider, however, 
the use of Common Lisp in some mobile vehicle. It is entirely plausible that the time zone 
might change from time to time. 



get - un i versal - tine [Function] 
The current time of day is returned as a single integer in Universal Time format. 

decode-universal-time universal-time ^optional time-zone [Function] 

The time specified by universal-time in Universal Time format is converted to 
Decoded Time format. Nine values are returned: second, minute, hour, date, month, 
year, day-of-week, daylight-saving-time-p, and time-zone. 



Compatibility note: In ZetaLisp the time-zone is not currently returned. Consider, however, 
the use of Common Lisp in some mobile vehicle. It is entirely plausible that the time-zone 
might change from time to time. 
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The time-zone argument defaults to the current time zone. 

encode-universal-tine second minute hour date month year [Function) 

^optional time-zone 

™«v2:^L1n the r: components of Time ( ™* » «*w 

TteZ™L7 7 l * and ;: tun ; ed - Uyou don,t * 

explicitly, no adjustment for daylight saving time is performed. 

internal-time-units-per-secona r ~ 

. , [Constant] 

*T£2 "H"-,"* IT"^ 0 "-^"*" number of interna, om e 

inCaJ mttn,aI ,,me mUS ' h *« - *- « -end is an 



get-internal-run-time 

[Function] 

I he current run time is returned as a single integer in Internal Time format The 

r™^ 8 r ntity is imp,ementati ° n - d ~ * ™— - 

Ume, run time CPU cycles, or some other quantity. The intent is that the difference 
between the values of two calls to this function be the amount of tin* tZt n 2 

ptgrat g WWCh C ° mPU,ati0naJ eff ° rt ™ « bcWf^iSS 



get-internal-real -time 

~, . [Function] 

^velo Tn^L Um : d Sin8le inte8Cr " Inten,al Time forma <- ™» *« 
calk to L fi , arb,tra ^ K t,m K e base ' but the ^rence between the values of two 

ml^ l T t Z "J* f am ° Unt ° f ClapSed ^ time *e two calls, 

measured m the units defined by internal-tiae-units-per-second 
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sleep seconds [Function] 

(sleep n) causes execution to cease and become dormant for approximately n 
seconds of real time, whereupon execution is resumed. The argument may be any 
non-negative non-complex number, sleep returns nil. 

25.4.2. Other Environment Inquiries 

For any of the following functions, if no appropriate and relevant result can be 
produced, nil is returned instead of a string. 

Rationale: These inquiry facilities are functions rather than variables against the possibility 
that a Common Lisp process might migrate from machine to machine. This need not happen 
in a distributed environment; consider, for example, dumping a core image file containing 
a compiler and then shipping it to another site. 



lisp -implementation -type [Function] 

A string is returned that identifies the generic name of the particular Common Lisp 
implementation. Examples: "Spice lisp", "Zetalisp". 

lisp -implementation -version [Function] 

A string is returned that identifies the version of the particular Common Lisp 
implementation; this information should be of use to maintainers of the 
implementation. Examples: "ina", "53.? with complex numbers", "i7<b.qA, 

NEWIO 53, ETHER 5.3". 

machine-type [Function] 

A string is returned that identifies the generic name of the computer hardware on 
which Common Lisp is running. Examples: "dec pdp-io m , "dec vax-ii/760". 

machine-version [Function ] 

A string is returned that identifies the version of the computer hardware on which 
Common Lisp is running. Example: m klio, microcode s". 



machine-instance [Function] 
A string is returned that identifies the particular instance of the computer hardware 
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34. Dates and Times 

*IT»e time package contains a set of functions for manipulating dales and limes: finding ihe 
current ,timc, . reading and printing dales and times, "convening between-" formats, and other 
miscellany regarding peculiarities of die calendar system. It also includes functions for accessing 
ihe Lisp Machine's microsecond timer. 

Times are represented in two different formats by ihe functions in die time package. One 
way is to represent a lime by many numbers, indicating a year, a month, a date, an hour, a 
minute, and a second (plus, sometimes, a day of ihe week and time/one). If a year less lhan 
100 is specified., a multiple of. 100 is added to it to bring it within 50 years of the present Year 
numbers relumed by the lime functions arc greater than 1900, Tic month is 1 for January. 2 for 
February, etc. The dale is 1 for the first day of a month. Tic hour is a number from 0 lo 23. 
ITic minute and second arc numbers from 0 lo 59. Days of the week are fixnums, where 0 
means Monday, 1 means Tuesday, and so on. A limc/.onc is specified as the number of hours 
west of GM T: thus in Massachusetts die timczonc is 5. Any adjusuncnt for daylight savings time 
is separate from this. 

This "decoded" format is convenient for printing out times into a readable notation, but it is 
inconvenient for programs to make sense of these numbers and pass them around as arguments 
(since there arc so many of them). So theje is a second representation, called Universal lime, 
which measures a time as the number of seconds since January I, 1900, at midnight GMT. This 
"encoded" format is easy to deal with inside programs, although it doesn't make much sense to 
look at (it looks like a huge integer). So both formats arc provided; there arc functions to 
convert between the two formats; and many functions exist in two versions, one for each format. 

ITie lisp Machine hardware includes a timer that counts once every microsecond. It is 
controlled by a crystal and so is fairly accurate. The absolute value of this timer doesn't mean 
anything useful, since it is initialized randomly; what you do with the timer is to read it at the 
beginning and end of an interval and subtract the two values to get the length of the interval in 
microseconds. These relative times allow you to time intervals of up to an hour (32 bits) with 
microsecond accuracy. 

The Lisp Machine keeps track of the time of day by maintaining a iimebase. using the 
microsecond clock to count off the seconds. On the CADR, when the machine first comes up, 
the timebasc is initialized by querying hosts on the Chaosnet to find out the current time. The 
lambda has a calendar clock which never stops, so it normally docs not need to do this. You 
can also set the time base using time:set-local-time, described below. 

There is a similar timer that counts in 60ths of a second rather than microseconds; it is useful 
for measuring intervals of a few seconds or minutes with less accuracy. Periodic housekeeping 
functions of the system arc scheduled based on this timer. 
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34.1 Gcning and Selling the Time 

get-dacoded-tlme 
t1me:get-t1me 

Gets the current time, in decoded form. Return seconds, minutes, houre. date, month 
year, day-uf-ihc-wcek. and daylighi-savings-limc-p, with the same meanincs as decode- 
universal- time (.see page 782). If the current time is not known, nil is returned. 

'Pic name time:get-time is obsolete. 

get-un1versal-t1me 

Returns the current time in Universal Time form. 

time: set-local -time &optional new-time 

Sets die local lime to nc^iimc If new-time is supplied it must be cidicr a universal 
lime or a suitable argument to time:parse-universal-time (see page r 781>. ' If it is not 
supplied, or if there is an error parsing the argument, you are prompted for the new 
lime. Note that you will not normally need to call this function; it is useful mainly when 
the timcbasc gets screwed up for one reason or another. 



34.1.1 Elapsed Time in 60ths of a Second 

The following functions deal with a different kind of time. These arc not calcndrical 
date/times, but simply elapsed time in 60ths of a second. These rimes arc used for many internal 
purposes where the idea is to measure a small interval accurately, not to depend on the time of 
day or day of month. 

time 

Returns a number that increases by 1 every 60th of a second. The value wraps around 
roughly once a day. Use the time-lessp and time-difference functions to avoid getting 
in trouble due to the wrap-around, time is completely incompatible with the Maclisp 
function of the same name. 

Note that time with an argument measures the length of time required to evaluate a form. 
Sec page 794. 

get- Internal -run- time 
get- Internal -real -time 

Returns the total time in 60ths of a second since the last boot. Hiis value docs not wrap 
around. Kvcntually it becomes a bignum. The Lisp Machine docs not distinguish between 
run time and real time. 

Internal -time -un1ts-per-second Constant 

According to Common Lisp, this is the ratio between a second and the dme unit used by 
values of get -internal -real -time. On the Lisp Machine, the value is 60. The value may 
be different in other Common Lisp implementations. 
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t1me-lessp rime! time2 



t if timet is earlier Ulan iimc2. compensating for wrap-around, otherwise nil. 

time-difference timel iimc2 

Assuming timcl is later than time2 % returns die number of 60ths of a second difference 
between them, compensating for wrap-around. 

time- Increment time interval 

Increments time by interval, wrapping around if appropriate. 

34.1.2 Elapsed Time in Microseconds 

time .-microsecond- time 

Returns the value of die microsecond timer, as a bignum. The values returned by this 
function wrap around back to zero about once per hour. 

time :f 1xnum-m1cro$econd-t1me 

Returns as a fixnum the value of the low 23 bits of the microsecond timer. This is like 
time:microsecond-time, with the advantage that it returns a value in the same format as 
the time function, except in microseconds rather than 60ths of a second. 'ITiis means that 
you can compare fixnum-micnisccond-timcs with time-lessp and time -difference. 
time:fixnum-microsecond-time is also a bit faster, but has the disadvantage that since 
you only sec the low bits of the clock, the value can wrap around more quickly (about 
every eight seconds). Note that the I jsp Machine garbage collector is so designed that the 
bignums produced by time:microsecond-time arc garbage-collected quickly and efficiendy, 
so the overhead for creating the bignums is really not high, 

34.2 Printing Dates and Times 

The functions in this section create printed representations of times and dates in various 
formats and send the characters to a stream. To any of these functions, you may pass nil as the 
stream parameter and the function will return a string containing the printed representation of the 
time, instead of printing the characters to any stream* 

The three functions time:print-time* time:print- universal -time, time:print-brief-universal- 
time and time:print-current-time accept an argument called date-print-mode. whose purpose is to 
control how the date is printed* It always defaults to the value of time: 'default-date-print- 
mode*. Possible values include: 

:dd//mm//yy Print the date as in 4 3/16/53\ 



mm//dd//yy 



Print as in 4 16/3/53\ 



dd-mm-yy 



Print as in *16-3-53\ 



:dd-mmm-yy 
|dd mmm yy| 
ddmmmyy 



Print as in *16-Mar-53\ 



Print as in 4 16 Mar 53*. 



Print as in 4 16Mar53\ 
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ryymmdd Print as in '530316'. 

:yymmmdd Print as in *5JMarI6\ 

t1me:pr1nt-current-t1me &opiional ( stream 'standard - output * ) 

PrinLs the current lime, formatted as in 11/25/80 14:50:02, to the specified stream. The 
date portion may be printed differently according to the argument dale- print- mode. 

time : print- time seconds minutes hours date month year ^optional 

(stream 'standard -output') date- prim-mode 
Prints die specified time, formatted ;is in 11/25/80 14:50:02, to the specified stream. 
The date portion may be printed differently according to the argument date-print-mude. 

t1me:pr1nt-un1versal-t1me universal- time &optionaI {stream 'standard-output*) 

( timezonc time: * timezone * ) date- print-mode 
Prints the specified time, fonnattcd as in 11/25/80 14:50:02, to the specified stream. 
The date portion may be printed differently according to the argument date-print-mode. 

time : print-brief -universal-time universal- time &opuonal (stream 'standard -output*) 

reference- time date- print-mode 
This is like time:print-universal-time except that it omits seconds and only prints those 
parts of universal- time that differ fjjom reference- time, a universal time that defaults to the 
current time. Thus the output is in one of the following three forms: 
02:59 ; the same day 

3/4 14:01 : a different day in the same year 

8/17/74 15:30 ; a different year 

The date portion may be printed differently according to the argument date- print-mode. 

time: *defau1t~date-pr1nt-mode* Variable 

Holds the default for the date- print-mode argument to each of the functions above. 
Initially the vaJue here is :mm//dd/yy. 

t1me:pMnt-current-date &optional (stream 'standard -output*) 

Prints the current time, formatted as in Tuesday the twenty- fifth of November, 1980; 
3:50:41 pm, to the specified stream, 

time: print-date seconds minutes hours date month year day-of- the- week &optional 

(stream 'standard -output*) 
Prints the specified time, formatted as in Tuesday the twenty- fifth of November, 1980; 
3:50:41 pm f to the specified stream. 

time:pr1nt-un1ver$al-date universal- time &optional (stream *standard-output*) 

(timezone time:*timezone*) 
Prints the specified time, formatted as in Tuesday the twenty-fifth of November, ,1980; 
3:50:41 pm, to the specified stream. 
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34 J Reading Dates and Times 

TIicnc functions accept most reasonable primed representations of date and time and convert 
them to the standard internal forms. Ilie following are representative formats that arc accepted by 
the parser. Note that slashes arc escaped with additional slashes, as is necessary if these strings 
arc input in traditional syntax. 

"March 15, I960" "3//15//60" "3// 15// 1960" 

"15 March 1960" - 15//3//G0" "15//3//1960" 

"March- 15-60" "3-15-60" "3-15-1960" 

M 15-March-60" "15-3-60" "15-3-1960" 

"15-Mar-60" "3-15" "15 March 60" 

"Fifteen March 60" "The Fifteenth of March, I960;" 
"Friday, March 15, 1980" 

"1130." "11:30" "11:30:17" "11:30 pm" 

"11:30. AM" "1130" "113000" 

"11.30" "11.30.00" "11.3" "11pm" 

"12 noon" "midnight" "m" "6:00 gmt" "3:00 pdt" 

any date format may be used with any time format 

"One minute after March 3, I960" 

meaning one minute after midnight 
"Two days after March 3, 1960" 
"Three minutes after 23:59:59 Dec 31, 1959" 

"Now" "Today" "Yesterday" "five days ago" 
"two days after tomorrow" "the day after tomorrow" 
"one day before yesterday" "BOBSOZ's birthday" 



time: parse siring &optional (start Q) (aid nil) (Juturep X) base-time must-have-time 

date-must- have-year time-must-have-second (day must-be- valid t) 
Interpret string as a date and/or time, and return seconds, minutes, hours, date, month, 
year, day-of-thc-weck, daylight-savings-time-p, and rclativc-p. start and end delimit a 
substring of the string; if end is nil, the end of the string is used, must-have-lime means 
that string must not be empty, date-must- have-year means that a year must be explicitly 
specified, time-must-havc- second means that the second must be specified, daymust-be- 
valid means that if a day of the week is given, then it must actually be the day that 
corresponds to the date, base-time provides the defaults for unspecified components; if it 
is nil, the current time is used. Juturep means that the time should be interpreted as 
being in the future; for example, if the base time is 5:00 and the string refers to the 
time 3:00, that means the next day if Juturep is non-nil, but it means two hours ,ago if 
Juturep is nil. The relative-p returned value is t if the string included a relative part, such 
as 'one minute after' or 'two days before* or "tomorrow* or 'now'; otherwise, it is nil. 



a ft TVT OA 



I isp Machine Manual ' 701 .... 

/s 1 Reading and Priming Time Intervals 

ir the input is not valid, the error condition sysrparse- error is signaled (see page 505). 

t1me:parse-un1versal-t1me siring &op,ional (start 0) (,.,,,/ni,) (,;,„„•,„,) basninw 

•ITik k " mHh '^'"" v <i<i«-»n ( s,-havc-yc<ir 1 inu- must- have- samnl (^-nmst-bi-valhlX) 

ie i ne^ U ZZ T**™ ** '* rc,ura l ™ ; '» reprcs ng 

me tunc in Uimorsal lime, and the rclativc-p value. 

34.4 Rending and Printing Time Intervals 

UuJlons^n T fUnC ! i0nS . f ° r rc;,di "S ;, » d P ri ""-«S inputs of time, there are other 

l^TttZjF* UmC J mcn;,k A ,imc * either a number ( measured t 

seconds or ml meaning never. Ih c printed representations used look like "1 minutes 21 

£££ XT ilK w * Ncvcr ' for niI (somc (>thcr ~ - 

timerprlnt-lntepval-or-never Uucnal ftopUonal (i/m/m 'standard-output') 

i'lT Sh ° U,d bC a fi^um or nil Ils printed representation as a time ' 

interval is written onto stream. 

time: parse- Interval -or-never string Aoptional start end 

Converts ^ a printed representation for a time interval, into a number or „//. start 

I, y i° SPCd0 ' 3 P ° ni0n ° f Slri,1 Z 10 hc usc * * c dcfat.lt is to use all of 

stnns. It ,s an error ,f the contents of string do not look like a reasonable time interval 
Here arc some examples of acceptable strings: 

"4 seconds" "4 sees" "4s" 

"5 mins 23 sees" "5 m 23 s" "23 SECONDS 5 M" 

"3 yrs 1 week 1 hr 2 mins 1 sec" 
"never" "not ever" "no- 

Note that several abbreviations arc understood, the components may be in any. order, and 

ZJ^T V .T °T I? ign ° red A,S0 ' " months " arc not rcc «*™ cd . *™ v rious 
months have d.fferem lengths and there is no way to know which month is being spoken 

nLr I T° UOn ayS aCC ° plS anything ^ Was P roduccd b y time:print-interval-or- 
never, furthermore, it returns exactly the same fixnum (or nil) that was printed. 

time: read-1nterval-or-never &optional (stream 'standard -input') 

Reads a line of input from stream (using readline) and then calls time.parse-interval-or- 
never on the resulting string. 
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34.5 Time Conversions 

decode-un1 versa! -time universal-time &opiional (///;/rr<wtime:Mimezone*) 

Converts universal- time into its decoded representation. ITic following values are returned: 
seconds, minulcs. hours, dale, month, year, day-of-dic-wcek, dayliglu-savings-timc-p, and 
die time/one used, (iayli^hhsijvm^thnrp tells you whether or not daylight savings lime is 
in effect: if so. die value of hour has hecn adjusted accordingly. You can specify 
timezone explicitly if you want to know the cqimalcnt representation for this time in other 
parts of ihc world. 

encode-unl versa! -time seconds minutes hours date month year Aoptional timezone 

Converts the dectxied lime into Unhersal lime format, and return the Universal Time as 
an integer. If you don't specify timezone. it defaults to the current time/one adjusted for 
daylight savings time: if you provide it explicitly, it is not adjusted for daylight savings 
time. If year is less than 100, it Is shifted by centuries until it is within 50 years of the 
present 

* 

time :• timezone* Variable 

Ihc value of time:*timezone* is the time /.one in which this Lisp Machine resides, 
expressed in terms of the number of hours west of GMT this time zone is, This value 
does not change to reflect daylight savings time; it tells you about standard lime in .your 
pa a of the world, 

34.6 Internal Functions 

These functions provide support for those listed above. Some user programs may need to call 
them directly, so they arc documented here, 

time: Initial 1ze-t1mebase 

Initializes the timcbasc by querying Chaosnet hosts to find out the current time. This is 
called automatically during system initialization. Vou may want to call it yourself to 
correct the dme if it appears to be inaccurate or downright wrong. Sec also timerset- 
local-time, page 777, 

time: day! 1ght-sav1ng$-t1me-p hours date month year 

Returns t if daylight savings time is in effect for the specified hour; otherwise, return nil. 
If year is less than 100, it is shifted by centuries until it is within 50 years of the present 

time: day 11ght-$av1ngs-p 

Returns t if daylight savings time is currently in effect; otherwise, returns nil 

time :month-length month year 

Returns the number of days in the specified month: you must supply a year in case the 
month is February (which has a different length during leap years). If year is less' than 
100, it is shifted by centuries until it is within 50 years of the present 
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time: leap-year-p year 

Returns t if year is a leap year; otherwise return nil. 
by centuries until it is within 50 years of the present 



If year is less than 100, it is shifted 



time: verify- date date month year dayaf- the- -week 

If the day of the week of the dale specified by date, month, and year is Hie same as day 
oj-the-week. returns nil: otherwise, returns a siring that contains a suitable error message 
If year is less than 100, it is shifted by centuries until it is within 50 yeans of the present. 

t1me:day-of-the-week-str1ng dayof- the- week ^optional (mode:long) 

Returns a string representing the day of the week. As usual, 0 means Monday. 1 means 
I uesday. and so on. Possible values of mode arc: 



:long 

rshort 

rmeditim 

:french 

rgerman 

:italian 



Returns the full Knglish name, such as "Monday", "Tuesday", etc. This 
is the default. 

Returns a three-letter abbreviation, such as "Mon", "Tue", etc. 
Returns a longer abbreviation, such as "Tues" and "Thurs". 
Returns the French name, such as "Lundi", "Mardi", etc. 
Returns the German name, such as M Montag", "Dienstag", etc. 
Returns the Italian rihmc, such as "Lunedi", "Martedi", etc. 



t1me;month-str1ng month &optional (mode :\ong) 

Returns a string representing the month of the year. As usual, 1 means January, 2 
means February, etc. Possible values of mode are: 



:long 

short 

:medium 

xoman 

:french 

.german 

Italian 



Returns the full English name, such as "January", "February", etc. 
This is the default 

Returns a three-letter abbreviation, such as "Jan", "Feb", etc. 

Returns a longer abbreviation, such as "Sept", "Novem", and "Decern". 

Returns the Roman numeral for month (this convention is used in 
Europe). 

Returns the French name, such as "Janvier", "Fevrier", etc. 
Returns the German name, such as "Januar", "Februar", etc. 
Returns the Italian name, such as "Gennaio", "Febbraio", etc. 



time: time zone-string Aoptional (//wra?/7ctime/timezone*) 

(daylight-savings-p (time:daylight-savings-p)) 
Return the three-letter abbreviation for this time zone. For example, if timezone is 5, 
then cither "EST" (Eastern Standard Time) or "CDT" (Central Daylight Time) is used, 
depending on doylightsanngs-p. 
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Foreword 

ISO (the International Organization for Standardization) is a worldwide federation of 
national standards bodies (ISO member bodies). The work of preparing International 
Standards is normally carried out through ISO technical committees. Each member 
body interested In a subject for which a technical committee has been estabEshed has 
the right to be represented on that committee. International organizations, govern- 
mental and non-governmental, in liaison wfth ISO, also take part in the work. ISO 
collaborates closely with the International Dectrote ch nical Commission (IEC) on al 
matters of elect rotechnica) standardization 

Draft International Standards adopted by the technical committees are circulated to 
the member bodies for approval before their acceptance as International Standards by 
the ISO Councl. They are approved in accordance with ISO procedures requiring at 
least 75 % approval by the member bodies voting. 

International Standard ISO 8601 was prepared by Technical Convnittee ISO/TC 154. 
Documents and data elements in administration, commerce and industry. 

It cancels and replaces International Standards ISO 2014 : 1376, ISO 2015 : 1976, 
ISO 2711 : 1973. ISO 3307 : 1975 and ISO 4031 : 1978. of which it constitutes a 
technical revision. 

Users should note that eH International Standards undergo revision from time to time 
and that any reference made herein to any other International Standard impfies its 
latest edition, unless otherwise stated. 
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Data elements and interchange formats — 
Information interchange — Representation of dates 
and times 



0 Introduction 

0.1 Although ISO Recommendations and Standards in this 
field have been available since 1971, different forms of numeric 
representation of dates and times have been in common use in 
different countries. Where such representations are inter- 
changed across national boundaries misinterpretation of the 
significance of the numerals can occur, resulting in confusion 
and other consequential errors or losses. The purpose of this 
International Standard is to eliminate the risk of misinterpret- 
ation and to avoid the confusion and its consequences. 

0.2 This International Standard includes specifications for 
the numeric representation of information regarding date and 
time of the day. 

0.3 In order to achieve similar formats for the representations 
of calendar dates, ordinal dates, dates identified by week 
number, periods of time, combined date and time of the day, 
and differences between local time and Coordinated Universal 
Time, and to avoid ambiguities between these representations, 
ft has been necessary to use, apart from numeric characters, 
either single alphabetic characters or one or more other graphic 
characters or a combination of alphabetic and other characters 
in some of the representations. 

0.4 The above action has had the benefit of enhancing the 
versatility and general applicability of previous International 
Standards in this field, and provides for the unique represen- 
tation of any date or time expression or combination of these. 
Each representation can be easily recognized, which is 
beneficial when human interpretation is required. 

0.5 This International Standard retains the most commonly 
used expressions for date and time of the day and their 
representations from the earlier International Standards and 
provides unique representations for some new expressions 
used in practice, fts application in information interchange, 
especially between data processing systems and associated 
equipment will eliminate errors arising from misinterpretation 
and the costs these generate. The promotion of this Inter- 



nationa! Standard win not only facilitate interchange across 
international boundaries, but wiU ateo improve the portability of 
software, and will ease problems of communication within an 
organization, as wed as between organizations. 

0.6 Several of the alphabetic and graphic characters used in 
the text of this International Standard are common both to the 
representations specified and to normal typographical presen- 
tation. 

0.7 To avoid confusion between the representations and the 
actual text, its punctuation marks and associated graphic 
characters, all the representations are contained in brackets ( ]. 
The brackets are not part of the representation, and should be 
omitted when irnplementing the representations. All matter 
outside the brackets is normal text, and not part of the 
representation. In the associated examples, the brackets and 
typographical markings are omitted. 



1 Scope and field of application 

This International Standard specifies the representation of 
dates in the Gregorian calendar and times and representations 
of periods of time, ft includes 

al calendar dates expressed in terms of year, month and 
day of month; 

b) ordinal dates expressed in terms of year and day of 
year; 

c) dates identified by means of year, week numbers and 
day numbers; 

d> time of the day based upon the 24-hour timekeeping 
system; 

e) differences between local time and Coordinated Univer- 
sal Time (UTC); 

f) combination of date and time; 

g) periods of time, with or without either a start or end 
date or both. 
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This International Standard is applicable whenever dates and 
times are included in information interchange. 

This International Standard does not cover dates and times 
where words are used in the representation. 

This International Standard does not assign any particular 
meaning or interpretation to any data element that uses 
representations In accordance with this International Standard. 
Such meaning will be determined by the context of the appli- 
cation. 

2 References 

ISO 31-0 : 1981, Genera/ principles concerning quantities, units 
and symbols. 

ISO 31-1 : 1978, Quantities and units of space and time. 

ISO 646 : 1983, Information processing — ISO 7-bit coded 
character set for information interchange. 

3 Terms and definitions 

For the purposes of this International Standard, the following 
terms and definitions apply. 

3.1 complete representation: The representation that 
includes all the date and time elements associated with the 
expression. 

3.2 Coordinated Universal Time (UTC); The time scale 
maintained by the Bureau International de I'Heure (Interna- 
tional Time Bureau) that forms the basis of a coordinated 
dissemination of standard frequencies and time signals. 

NOTES 

1 The source of this definition is Recommendation 460-2 of the 
Consultative Committee on International Radio (CCIR). CCIR has also 
defined the acronym for Coordinated Universal Time as UTC (see also 
6.3.3). 

2 UTC is often (Incorrectly) referred to as Greenwich Mean Time and 
appropriate time signals are reguiarty broadcast. 

3.3 date, calendar: A particular day of a calendar year, 
identified by its ordinal number within a calendar month within 
that year. 

3.4 date, ordinal: A particular day of a calendar year Iden- 
tified by its ordinal number within the year. 

3.5 day: A period of time of 24 hours starting at 0000 and 
ending at 2400 (which is equal to the beginning of 0000 the next 
day). 

3.6 format, basic: The format of a representation compris- 
ing the minimum number of components necessary for the 
precision required. 

3.7 format, extended: An extension of the basic format 
that includes additional separators. 



3.8 Gregorian calendar: A calendar in general use intro- 
duced in 1582 to correct an error in the Julian calendar. In the 
Gregorian calendar common years have 366 days and leap 
years 366 days divided into 12 sequential months. 

3.9 hour: A period of time of 60 minutes. 

3.10 local time: The clock time in public use locally* 

3.11 minute: A period of time of 60 seconds. 

3.12 month, calendar: A period of time resulting from the 
division of a calendar year in twelve sequential periods of time, 
each with a specific name and containing a specified number of 
days. In the Gregorian calendar, the months of the calendar 
year, fisted in their order of occurrence, are named and contain 
the number of days as follows: January {31), February (28 in 
common years; 29 in leap years), March (31), April (30), 
May (31), June (30), July (31), August (31), September (30), 
October (31), November (30), December (31). 

NOTE — In certain applications a month is regarded as a period of 
30 days. 

3.13 period: A duration of time, specified 

a) as a defined length of time (e.g. hours, days, months, 
years); 

b) by its beginning and end points. 

3.14 second: A basic unit of measurement of time in the 
International System of Units (SI) as defined in ISO 31-1. 

3. 15 truncated representation: The abbreviation of a com- 
plete representation by omission of higher order components 
starting from the extreme left-hand side of the expression. 

3.16 week: A period of time of seven days. 

3.17 weak, calendar: A seven day period within a calendar 
year, starting on a Monday and identified by Its ordinal number 
within the year; the first calendar week of the year is the one 
that includes the first Thursday of that year. In the Gregorian 
calendar, this is equivalent to the week which includes 
4 January. 

3.16 year: A period of time of twelve consecutive months, 
considered to equal a calendar year. 

3.19 year, calendar: A cyclic period of time in a calendar 
which is required for one revolution of the earth around the 
sun. In the Gregorian calendar, a calendar year is either a com- 
mon year or a leap year. 

3.20 year, common: In the Gregorian calendar, a year 
which has 365 days. 

3.21 year, leap : In the Gregorian calendar, a year which has 
366 days. A leap year is a year whose number is divisible by 
four an integral number of times, except that if it is a centennial 
year ft shall be divisible by four hundred an integral number of 
times. 
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4 Fundamental principles 
4.1 Concept 

A precis© point in calendar time can be identified by means of a 
unique expression giving a specific day and a specific time 
within that day. The degree of precision required for the 
application can be obtained by including the appropriate 
components. 



4J2 Common features, uniqueness 
and combinations 

The decreasing order of components, left-to-right, is common 
to the expressions for 

— precise points in time; 

— dates only; 

— times only; 

— periods of time; 

— any abbreviations of the above. 



4.3 Characters used in the representations 

The representations specified in this International Standard use 
digits, alphabetic characters and special characters specified in 
ISO 646. The particular use of these characters is explained in 

4.4 and clause 6. 

NOTE — Where the upper case characters are not available lower case 
characters may be used. 

The space character shall not be used In the representations. 



4.4 Use of separators 

When required, the following characters shall be used as 
separators: 

[•] (hyphen) — to separate the time elements "year" and 
"month", "year" and "week", "year" and "day", "month" 
and "da/', and "week" and "da/'; 

NOTE - The hyphen is also used to indicate omitted components. 

1:1 (colon) — to separate the time elements "hour" and 
"minute", and "minute" and "second". 

[/] (solidus) — to separate the two components in the 
representation of periods of time. 



4.5 Truncation 

It is permitted to omit higher order components (truncation) 
in applications where their presence is implied. To assure 
uniqueness of each representation provided for in this Inter- 
national Standard, truncation of a particular representation 
should be done in accordance with the rules given in the ap- 
propriate subclause of clause 5 referring to the representation 



in question. The addition of a single hyphen in place of each 
omitted component will usually be necessary, to avoid risk of 
misinterpretation. 

NOTE — By mutual agreement of the partners in information inter- 
change, leading hyphens may be omitted in the applications where 
there is no risk of confusing these representations with others defined 
In this International Standard. 



4.6 Leading zero(s) 

Each date and time component in a defined representation has 
a defined length, and (a) leading zero(s) shall be used as 
required. 



5 Representations 
5.1 Explanations 

5.1.1 Characters used in place of digits 

f C] represents a digit used in the thousands and hundreds 
components (the "century" component) of the time ele- 
ment "year"; 

[Y] represents a digit used in the tens and units com- 
ponents of the time element "year"; 

(Ml represents a digit used in the time element "month" ; 

[D] represents a digit used in the time element "day"; 

[w] represents a digit used in the time element "week"; 

[h] represents a digit used in the time element "hour"; 

[ml represents a digit used in the time element "minute" ; 

fsl represents a digit used in the time element "second"; 

In] represents digit(s), constituting a positive integer. 



5.1.2 Characters used as designators 

[PI is used as period designator, preceding a data element 
which represents a given duration of a period of time; 

IT] is used as time designator to indicate the start of the 
representation of the time of the day in combined date and 
time of day expressions; 

IWl Is used as week designator, preceding a data element 
which represents the ordinal number of a calendar week 
within the year; 

[Z] is used as time-zone designator, inrtmediatety (without 
space) following a data element expressing the time of the 
day in Coordinated Universal Time (LTTC). 

In representations of duration of time (5.5.3.2), the following 
characters are also used as parts of the representation when 
required: 

(Y| (Ml IWJ ID] (H) IM] [S3 

NOTE — In these representations, (Ml may be used to indicate 
"month" or "minute", or both. 
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5.2 Dates 

For ease of comparison, in all the following examples of 
representations of dates, the date of 12 April 1965 is used as an 
illustration, as applicable. 



&2.1 Calendar data 

In expressions of calendar dates 

— day of the month (calendar day) Is represented by 
two digits. The first day of any month is represented by [01] 
and subsequent days of the same month are numbered in 
ascending sequence ; 

— month is represented by two digits. January is 
repre sen ted by [01], and subsequent months are numbered 
in ascending sequence; 

— year is generally represented by four digits; years are 
numbered in ascending order according to the Gregorian 
Calendar. 



5.2.1.1 Complete representation 

When the application clearly identifies the need for an expres- 
sion only of a calendar date, then the complete representation 
shall be a single numeric data element comprising eight digits, 
where [CCYYJ represents a calendar year, [MM] the ordinal 
number of a calendar month within the calendar year, and (DDI 
the ordinal number of a day within the calendar month. 

Baste format: CCYYMMDD 

Example; 19650412 
Extended format: CCYY-MM-OD 

Example: 1965-04-12 



5.2.1.2 Representations with reduced precision 

rf In a given application it is sufficient to express a calendar date 
with less precision than e complete representation as specified 
in 5.2.1.1, either two, four or six digits may be omitted, the 
omission starting from the extreme right-hand side. The 
resulting representation wQI then indicate a month, 8 year or a 
century, as set out below. When only [DO] are omitted, a 
separator shall be inserted between [CCYY] and [MM], but 
separators shall not be used in the other representations with 
reduced precision. 

a) A specrftc month 
Basic format: CCYY-MM 

Example: 1985-04 
Extended format: not applicable 

b) A specific year 
^astc/foim^t: CCYY 

Example: 1985 
Extended format: not applicable 



c) A specific century 
Basic format: CC 

Example: 19 
Extended format: not applicable 

5.2.1.3 Truncated representations 

ff truncated representations are required the basic formats shall 
be as specified below. In each case hyphens (to indicate omit- 
ted components) shall be used only as indicated. 

a) A specific date in the current century 
Basic format: YYMMDD 

Example: 850412 
Extended format: YY-MM-DO 
Example: 85-04-12 

b) A specific year and month in the current century 
Basic format: -YYMM 

Example: -8504 
Extended format: -YY-MM 
Example: -85-04 

c) A specific year in the current century 
Basic format: -YY 

Example: -85 
Extended format: not applicable 

d) A specific day of a month 
Basic format: -MMDD 

Example: -0412 
Extended format: -MM-DD 
Example: -04-12 

el A specific month 
Basic format: -MM 

Example: -04 
Extended format: not applicable 

f ) A specific day 
Basic format: — DD 

Example: --12 
Extended format: not applicable 

5.2.2 Ordinal date 

The ordinal day of the year is represented by three decimal 
digits. The first day of any year is represented by [001] and 
subsequent days are numbered in ascending sequence. 

5.2.2.1 Complete representation 

When the application clearly identifies the need for a complete 
representation of an ordinal date, ft shall be one of the numeric 
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expressions as follows, where [CCYY] represents a calendar 
year and (DDD) the ordinal number of a day within the year. 

Basic format: CCYYDDD 

Example: 1965102 
Extended format: CCYY-ODO 

Example: 1985-102 

5.2.2.2 Truncated representations 

rf truncated representations are required, the basic formats 
shall be as specified below. In each case hyphens (to indicate 
omitted components) shall be used only as indicated. 

a) A specific year and day in the current century 
Basic format: YYOOD 

Example: 85102 
Extended format: YY-DDD 
Example: 88-102 

b) Day only 

Basic format: -DDD 

Example: *102 
Extended format: not applicable 

NOTE — Logically, the representation should be t— DDD]. but the first 
hyphen is superfluous and, therefore, it has been omitted. 



6.2.3 Date identified by calendar week and day 
numbers 

Calendar week is represented by two numeric digits. The first 
calendar week of a year shall be identified as [01] and subse- 
quent weeks shall be numbered In ascending sequence. 

Day of the week is represented by one decimal digit Monday 
shall be identified as day 11] of any calendar week, and subse- 
quent days of the same week shall be numbered in ascending 
sequence to Sunday (day [7]). 



5.2.3.1 Complete representation 

When the application clearly identifies the need for a complete 
representation of a date identified by calendar week and day 
numbers, it shall be one of the alphanumeric expressions as 
follows, where (CCYY] represents a calendar year, I WJ is the 
week designator, [ww] represents the ordinal number of a 
calendar week within the year, and ID] represents the ordinal 
number of a day within the calendar week. 

Basic format: CCYYWwwD 

Example: 1985W155 
Extended format: CCYY-Www-D 

Example: 1985-W15-5 



5.2.3.2 Representation with reduced precision 

If the degree of precision required permits, one digit may be 
omitted from the representation in 5-2.3.1. 

Basic format: CCYYWww 

Example: 1985W15 
Extended format: CCYY-Www 

Example: 1965-W15 

6.2.3.3 Truncated representations 

If truncated representations are required the basic formats shall 
be as specified below. In each case hyphens (to indicate omit- 
ted components) shall be used only as indicated. 

a) Year, week and day in the current century 
Bask format: YYWwwO 

Example: 85W155 
Extended format: YY-Www-D 
Example: S5-W15-5 

b) Year and week only in the current century 
Basic format: YYWww 

Example: 85W15 
Extended format: YY-Www 
Example: 85-W15 

c) Year of the current decade, week and day only 
Bask format: -YWwwD 

Example: -5W15> 
Extended format: -Y-Www-D 
Example: -5-W15-5 

d) Week and day only of the current year 
Basic format: -WwwD 

Example: -W155 
Extended format: -Www-D 
Example: -W15-5 

e) Week only of the current year 
Basic format: -Www 

Example: -W15 
Extended format: not applicable 

f ) Day only of the current week 
Basic format: -W-D 

Example: -W-5 
Extended format: not applicable 

NOTE — Although the representation [-W-D] could be abbreviated 
to 1-0] without risk of misinterpretation, the full, logical, derivation 
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has been retained because the (WJ serves to identify the represen- 
tation as a date based on week and day numbers. Its frequency of 
use Is expected to be low and, therefore, the two potentially 
superfluous characters are not likely to create transmission 
problems. 

g) Day only of any week 
Basic format: — D 

Example: — 5 
Extended format: not applicable 



5.3 Time of the day 

As this International Standard is based on the 24-hour 
timekeeping system which is now In common use, hours are 
represented by two digits from [01] to [24], whereas minutes 
and seconds are represented by two digits from [01] to [60]. For 
most purposes times will be represented by four digits [hhmm]. 

6.3.1 Local time of the day 

6.3.1.1 Complete representation 

When the application dearly identifies the need for an expres- 
sion only of a time of the day then the complete representation 
shall be a single numeric data element comprising six digits in 
the basic format, where [hh] represents hours, [mm] minutes 
and [ss] seconds. 

Basic format: hhmmss 

Example: 232050 
Extended format: hh:mm:ss 

Example: 23:20:50 

6.3.1.2 Representations with reduced precision 

If the degree of precision required permits, either two or four 
digits may be omitted from the representation in 5.3.1.1. 

Basic format: hhmm 
hh 

Example: 2320 
23 

Extended format: hh:mm 

not applicable 

Example: 23:20 

6.3.1.3 Representation of decimal fractions 

rf necessary for a particular application a decimal fraction of 
hour, minute or second may be included. If a decimal fraction is 
included, lower order components (rf any) shall be omitted, and 
the decimal fraction shall be divided from the integer part by 
the decimal sign specified in ISO 31-0: i.e. the comma 1,1 or full 
stop [.]. Of these, the comma is the preferred sign. If the 
magnitude of the number Is less than unity, the decimal sign 
shall be preceded by a zero (see ISO 31-0). 



The number of digits in the decimal fraction shall be determined 
by the interchange parties, dependent upon the application. 
The format shall be I hhmmss, s], [hhmm r m] or fhh,hj as ap- 
propriate (hour minute second, hour minute and hour, respec- 
tively], with as many digits as necessary following the decimal 
sign, rf the extended format is required, separators may be 
included in the decimal representation when the complete 
representation is used, or when it is reduced by omission of 
[ss,sj. 

Basic format: hhmmss,s 
hhmm,m 
hh,h 

Example: 232050,5 
2320,9 
23,3 

Extended format: hh:mm:ss,s 

hh;mm,m 
not applicable 

Example: 23:20:50,5 
23:20,9 

5.3.1.4 Truncated representations 

If truncated representations are required the basic formats shall 
be as specified below. In each case hyphens (to indicate omit- 
ted components) shall be used only as indicated. 

a) A specific minute and second of the hour 
Basic format: -mmss 

Example: -2050 
Extended format: -mm:ss 
Example: -20:50 

b) A specific minute of the hour 
Basic format: -mm 

Example: -20 
Extended format: not applicable 

c) A specific second of the minute 
Basic format: — ss 

Example: -50 
Extended format: not applicable 

d) A specific hour of the day and decimal fraction of the 
hour 

Basic format: hh,h 

Example: 11,3 
Extended format: not applicable 

e) A specific minute of the hour and a decimal fraction of 
the minute 

Basic format: -mm,m 

Example: -20,9 

Extended format: not applicable 
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f ) A specific minute and second of the hour and a decimal 
fraction of the second 

Basic format: -mmss,s 

Example: -2060,5 
Extended format: -mm:ss,s 

Example: -20:50,5 

g) A specific second of the minute and a decimal fraction 
of the second 

Basic format: — ss.s 

Example: -50,5 

Extended format: not appficable 

NOTE — The basic formats above show only one digit following the 
decimal sign, but as many digits as required may be used. 



5.3.2 Midnight 

The complete and extended representations for midnight, in 
accordance with 5.3.1, shall be expressed in either of the two 
following ways: 

Basic format Extended format 

a) 000000 00:00:00 (the beginning of a day); 

b) 240000 24:00:00 (the end of a day). 

The representations may be reduced in accordance with 
5.3.1.4. 

NOTES 

1 Midnight will normally be repre se nt e d as [0000] or (24001 

2 The choice of representation a) or b) wilt depend upon any associ- 
ation with a date, or a time period. 

3 The end of one day (2400) coincides with 10000) at the start of the 
next day, e.g. 2400 on 12 April 1985 is the same as 0000 on 13 April 
1985. If there is no association with a data or a time period both a) and 
b) represent the same dock time in the 24-hour timekeeping system. 

5.3.3 Coordinated Universal Time <UTC) 

To express the time of the day in Coordinated Universal Time, 
the representations specified in 5.3.1 shall be used, followed 
immediately, without spaces, by the time-zone designator IZJ. 
The examples below are complete and reduced precision 
representations of the UTC time 20 minutes and 30 seconds 
past 23 hours: 

Basic format: hhmmssZ 
hhmmZ 
hhZ 

Example: 2320307 
23202 
23Z 

Extended format: hh:rnm:ssZ 

hh:mmZ 
not applicable 

Example: 23:20: 30Z 
23:20Z 



5.3.3.1 Differences between local time and Coordinated 
Universal Time 

When it is required to indicate the difference between local 
time and Coordinated Universal Time, its representation shall 
be appended to the representation of the local time following 
immediately, without space, the lowest order (extreme right- 
hand) component of the local time expression, which, in this 
case, shall always include hours. 

The difference between local time and Coordinated Universal 
Time shad be expressed in hours and minutes, or hours onfy 
independently of the precision of the local time expression 
associated with it ft shall be expressed as positive (i.e. with the 
leading plus sign [ + 1) if the local time is ahead of and as 
negative (i.e. with the leading minus sign (-]) if it is behind 
Coordinated Universal Time as shown below. The complete 
representation of the time of 27 minutes 46 seconds past 
15 hours locally in Geneva (normally one hour ahead of UTC), 
and in New York (five hours behind UTC), together with the in- 
dication of the difference between the local time and Coor- 
dinated Universal Time, are used as examples. 

Basic format: + hhmm 
+ hh 
-hhmm 
-hh 

Example: 152746+0100 
152746+01 
152746-0600 
152746-05 

Extended format: + hh:mm 

not applicable 
-hh:mm 
not applicable 

Example: 15:27:46+01:00 
15^7:46+01 
15:27:46 -05:00 
15:27:46-05 

NOTE — The representations of the negative difference between local 
time and Coordinated Universal Time should not be used alone as they 
may be confused with the truncated representations of dates provided 
for in 5.2. 1.3, and with truncated representations of time of the day 
provided for in 5.3.1.4. 

5.4 Combinations of data and time of the day 
representations 

When the application does not clearly identify the need for only 
a date expression (see 5.2) or only a time of the day expression 
(see 5.3), then a moment of time can be identified through a 
combination of date and time of the day representations pro- 
vided for in this International Standard. 

5.4.1 Complete representation 

The components of an instant of time shall be written in the 
following sequence: 

a) For calendar dates: 

year - month - day - time designator - hour - minute - 
second 
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b) For ordinal dates: 

year - day - time designator - hour - minute - second 

c) For dates identified by week and day numbers: 

year - week designator - week - day * time designator - 
hour - minute - second 

The character [T] shall be used as time designator to indicate 
the start of the representation of date time of day in combined 
date and time of day expressions. The hyphen f-J and the colon 
1:1 shall be used, in accordance with 4.4, as separators within 
the date and time of the day expressions respectively, when re- 
quired. When any of the date or time components are omitted, 
the time designator shall always precede the remaining time of 
day components. 

NOTE — By mutual agreement of the partners In information inter- 
change, the character \J] may be omitted in applications where there is 
no risk of confusing a combined date and time of the day represen- 
tation with others defined in this International Standard. 

The following are examples of complete and reduced represen- 
tation (in basic and extended format) of combinations of date 
and time of the day representations: 

a) Calendar date and focal time of the day 

Basic format: CCYYMMDOThhmrnss 
CCYYMMDDThhmm 
CCYYMMDDThh 

Examples: 19650412X101530 
19850412T1015 
19850412T10 

Extended format: CCW-MM-DDThh:mm:ss 

CCYY-MM-DDThh;mm 
CCYY-MM-DDThh 

Examples: 138544-12X10:30 
1985-04-12T10:15 
1965-04-12X10 

b) Ordinal date and local time of the day 

Basic format: CCYYDODThhmmss 
CCYYDDDThhmm 
CCYYDDDThh 

Examples: 13851Q2T235030 
1985102X2350 
1985102T23 

Extended format: CCYY-DDDThh:mm:ss 

CCYY-DDDThh:mm 
CCYYDDDThh 

Examples: 1985-102X23:50:30 
1985-102X23:50 
198^102X23 

c) Date identified by calendar week and day numbers and 
local time of the day 

Basic format: CCYYWwwDThhmmss 
CCYYWwwDThhmrn 
CCYYWwwDThh 

Examples: 1385W155T235030 
1385W155T2350 
1985W156T23 



Extended format: CCYY-Www-DThh:mm:ss 

CCYY^Www-DThhrmm 
CCYY-Www-DXhh 

Examples: 1985-W1 5-5X23:30 
1985-W15-5T23:50 
1385-W15-5T23 

S.4.2 Representations other than complete 

For reduced precision or truncated representations of a com- 
bined date and time expression any of the representations in 
5.2.1 (for calendar dates), 5.2.2 (for ordinal dates) or 5.2.3 (for 
dates identified by week numbers) may be corribtned with any 
of the representations in 5.3 provided that the rules specified in 
those sections are applied, together with the following : 

a) the date component shall not be represented with 
reduced precision and the time component shall not be 
truncated in a combined date and time expression; 

b) when truncation occurs in the date component of a 
combined date and time expression, it is not necessary to 
replace the omitted higher order components with the 
hyphen M; 

c) when the context does not clearly identify a time only 
component, and K the extended format including colon [:] 
separator is not used, then it is necessary to commence the 
time expression with the designator (X). 

5.5 Periods of time 

5.5.1 Meant of specifying periods 

A period of time shall be expressed in one of the following 
ways: 

a) As a duration of time delimited by a specific start and a 
specific end; 

b) As a quantity of time expressed in one or more specific 
components but not associated with any specific start or 
end; 

c) As a quantity of time associated with a specific start; 

d) As a quantity of time associated with a specific end. 

5.5.2 Separators end designators 

A solfdus [/] shall be used to separate the two components In 
each of 5.5.1 a), c) and d). 

For 5.5.1 b), c) and d) the designator [P] shall precede, without 
spaces, the representation of the duration. 

Other designators (and the hyphen when used to indicate omit- 
ted components) shall be used as shown in 5.5.3 below. 

NOTE — In certain application areas a double hyphen is used as a 
separator instead of a sofidus. 

6.5.3 Complete representations 

5.5.3.1 Representation of period identified by its start and 
end 
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When the application dearly identifies the need for a complete 
representation of a period of time, identified by its start and its 
end, it shall be one of the alphanumeric expressions as set out 
below. For the specific start or end of a period, [CCYY] 
represents a calendar year, [MM] the ordinal number of a calen- 
dar month within the calendar year, [DD] the ordinal number of 
a day within the calendar month, (hh) hours, f mm] minutes and 
[ss] seconds. 



Basic format; 

CCYYMMDDThhmn^/CCYYMMDDThhmmss 

Example: 19850412T232050/13850625T1 03000 

A period beginning at 20 minutes and 50 seconds past 
23 hours on 12 April 1965 and ending at 30 mtriutes past 
10 hours on 25 June 1965. 



6.5.3^ Representation of duration of time 

A given duration of a period of time, whether or not associated 
with a start or end, snail be represented by a data element of 
variable length, preceded by the designator IPJ. The number of 
years shall be followed by the designator [Y], the number of 
months by (ML the number of weeks by [W], and the number 
of days by [0]. The part including time components shall be 
preceded by the designator [T]; the number of hours shall be 
followed by [H], the number of minutes by [Ml and the number 
of seconds by [S]. In the example set out below. In] represents 
one or more digits, constituting a positive integer. 



Basic format; PnYnMnDTnHnMnS 
PnW 

Example: P2Y10M15OT10H30M20S 

A duration of two years, 10 months, 15 days, 10 hours, 
30 minutes and 20 seconds. 

P6W 

A period of six weeks. 



5.6.3.2.1 Alternative format 

If required for particular reasons, durations of time may be ex- 
pressed in conformity with the format used for points-irvtirne. 
as specified in clause 5. Accordingly, the values expressed 
must not exceed the "carry-over points" of 12 months, 
30 days, 24 hours, 60 minutes and 60 seconds. Since weeks 
have no defined carry-over point (52 or 53), weeks should not 
be used in these applications. 



6.5.3.3 Representation of period identified by its start and 
its duration 

Basic format: 

CCYYMMDDThhmmss/ PnYnMnDTnHnMnS 

Example: 196S0412T232060/P1Y2M15DT12H30M 

A period of one year, 2 months, 15 days, 12 and a haff 
hours, beginning on 12 April 1965 at 20 minutes and 
50 seconds pest 23 hours. 

6.5.3.4 Representation of period identified by its duration 
and its end 

Basic format: 

PnYnMnDTnHnMnS /CCYYMMDDThhmmss 

Example; P1Y2M15DT12H30M/19650412T232060 

A period of one year, 2 months, 15 days and 12 and a 
half hours, ending on 12 April 1965 at 20 minutes and 
50 seconds past 23 hours. 

NOTES 

1 Where complete representations using calendar dates have been 
chown, ordinal dates (5.2.2) or dates identified by week number (5JL3) 
may be substituted In simitar fashion. 

2 In 5.5.3.2, 5.543 and 5.5.3.4 the components for duration would 
frequently be in reduced precision form. 

If extended formats are required, they shall conform to the 
requirements of 5.2.1.1, 6.2.2-1. 6.2.3.1 and 5.3.1.1. 

6.5.4 Representations other than complete 

If reduced precision, or truncated, or decimal representations, 
or extended formats, are used in place of any components in 
the complete representations, they shall each be in accordance 
with the corresponding rules in 5.2 and 5.3. 

In representation for the periods in 5.6.1 a), 

— if higher order components are omitted from the ex- 
pression following the sofidus (i.e. the representation for 
"end of period"), it shall be assumed that the corresponding 
components from the "start of period" expression apply 
{e.g. if [CCYYMM1 are omitted by using a derived represen- 
tation, the end of the period is in the same year and month 
as the start of the period); 

— representations for time-zones and Coordinated 
Universal Time included with the component preceding the 
sotidus shaH be assumed to appry to the component follow- 
ing the soJidus, unless a corresponding alternative is 
included. 
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Annex A 

Relationship to ISO 2014, 2015, 2711, 3307 and 4031 

(This annex does not form part of the standard.) 



A. 1 In preparing the first edition of ISO 2014 an examination was carried out of the potential uses of all-numeric dates. The advan- 
tages of the descending order year-month-day were found to outweigh those for the ascending order day-month-year already 
established at that time in many parts of the world. 

The advantages of the descending order were found to include the following, in particular: 

a) the avoidance of confusion in comparison with existing national conventions using different systems of ascending order; 

b) the ease with which the whole date may be treated as a single numeral for the purposes of fifing and classification; 

c) arithmetic calculation, particularly in some computer uses; 

d) the possibility of continuing the order by adding digits for hour-minute-second. 

AJ2 For times, use of the 24-hour timekeeping system is now so common (particularly in view of the wide avaflabi&ty and use of 
digital watches) that separators to aid human interpretation are no longer necessary but are included as options. 

The natural addition of the lower order time digits to the higher order date digits (see a bevel established the basic concept used in the 
preparation of this International Standard : that a point in time could be uniquely represented in af^numeric form by a string of digits 
commencing with year and ending with hour, minute or second, depending on the precision desired. 

From that concept representations of att other date and time values were logically derived and, thus, ISO 2014, ISO 3307 and 
ISO 4031 have been superseded. 



A.3 Numbering of days and weeks tn the year based on the Gregorian calendar ts important in many commercial applications. 
Methods of numbering the weeks of the year vary from country to country, and, therefore, for international trade and for industrial 
planning within international companies it is essential to use uniform numbering of weeks. ISO 2015 and ISO 2711 were prepared to 
meet these requirements. 

The uniform numbering of weeks necessitates a unique designation of the day on which a week begins. For commercial purposes, i.e. 
accounting, planning and similar purposes for which a week number might be used, Monday has been found the most appropriate as 
the first day of the week. 

identification of a particular date by means of ordinal dates (ISO 27111 and by means of the week numbering system (ISO 2015) were 
alternative methods that the basic concept of this international Standard could also encompass and, thus, ISO 2015 and ISO 271 1 
have now been superseded. 
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Annex B 

Examples of representation of dates, time of the day, combinations 

of date and time, and periods of time 

{This annex does not form part of the standard.) 



B.1 Dates 



Basic format 

Calendar date — 12 April 1985 

19650412 
850412 
--0412 

—12 

Ordinal date - 12 April 1966 

1985102 
85102 
5-102 
-102 



Extended format Explanations 



198644-12 
854)4-12 
-04-12 
not applicable 



1965-102 
85-102 
not applicable 
not applicable 



Calendar week and day — Friday 12 April 1985 



1966W155 
85W155 
-5W155 
-W155 
-W-5 

Calendar week * 15th week of 1985 



1986-W15-5 
85-W15-5 
-&-W15-5 
-W15-5 
not appficabfe 



1385W15 
85W15 
-5W15 
-W15 

Day of the week — Friday 
—5 

Calendar month — April 1965 

196&-04 
-6504 
-04 

Calendar year — 1985 

1985 
-85 



1965-W15 
85-W15 
-5W15 
not applicable 



not applicable 



not applicable 

-85-04 
not applicable 



not applicable 
not applicable 



Complete 

Year of any century, with month and date only 
Month and date of any year 
Day only of any month 



Complete 

Year of any century, with ordinal day 
Year of any decennium, with ordinal day 
Ordinal day of any year 



Complete 

Year of any century, with week and day 
Year of any decennium, with week and day 
Week and day of any year 
Any week and day of that week 



Complete 

Year of any century and week of that year 
Year of any decennium and week of that year 
Specific week of any year 



Any Friday 



Complete 

Year of any century and month of that year 
Specific month of any year 



Complete 

Specific year of any century 
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B.2 Time of the day 

Basic format Extended format 

Local time of the day 

27 minutes 46 seconds past 15 hours locally 



182746 
-2746 
-46 

Reduced to hours and minutes 

1527 
-27 

Reduced to hours 
15 

Local time with decimal fractions 



15:27:46 
-27:46 
not applicable 



15:27 
not applicable 



not applicable 



27 minutes 35 and a half seconds past 15 hours locally 



152735,5 
-2735,5 
-35,5 
15,46 
-27,59 
-,59 
-,5 

Midnight — The beginning of a day 



15:27:35,5 
-27:35,5 
not applicable 
not applicable 
not applicable 
not applicable 
not applicable 



I MM I 



0000 



Midnight — The end of the day 



24 
2400 



Mil 



00:00:00 
00:00 



24:00:00 
24:00 



Coordinated Universal Time (UTC) 

20 minutes and 30 seconds past 23 hours UTC 



23203QZ 

23202 

23Z 



23:20:302 
23:202 
not applicable 



Explanations 



Complete 

Specific minute and second of any hour 
Specific second of any minute 



Complete 

Specific minute of any hour 



Specific hour of arty day 



Complete 

Minute of hour, second with decimal fraction 
Second with decimal fraction of the minute 
Hour with decimal fraction of that hour 
Minute with decimal fraction of that minute 
Decimal fraction of the minute 
Decimal fraction of the second 



Complete 

Hour and minute only 



Complete 

Hour and minute only 



Complete 

Hour and minute in UTC 
Hour hi UTC 



Differences between local time and Coordinated Universal Time 

The time of 27 minutes 46 seconds past 15 hours locally in Geneva lone hour ahead of UTC) 



152746-1-0100 
152746+01 



15:27:46+01:00 
15:27:46 + 01 



Complete 

Time difference expressed in hours only 



The same time locally in New York (five hours behind UTC) 



152746- 
152746-05 



irii 



16:27:46-05:00 
15:27:46-05 



Complete 

Time difference expressed in hours only 
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B.3 Combinations of date and time 



Basic format 



Extended format Explanation* 



Combinations of calendar data and local tima of the day 



19650412T101530 
850412T101S30 
850412T1015 
041271015 
0412710 
12710 
850412T10 
12T101530 



etc. 



138WM-12T10: 15:30 
8&04-12T1 0:15:30 
fiW)4-1Z710:15 
04~12T10:15 
04-12T10 
12T10 
85-04-12710 

12X10:15:30 



Complete 

Within specific year of any century 
Ditto, with hour and minute only 

Wfthin specific month of any year, with hour and minute only 
Ditto, with hour only 7 
Within specific day of any month, with hour only 
Within specific date of any century, with hour only 
Within specific day of any month, year and century 



Combinations of ordinal data and local tima of the day 

19851027235030 1965-102123:50:30 

851027235030 85-102X23:50:30 

8510272350 85-102723:50 

10272360 102723:50 

102723 102X23 

85102T23 85-102723 

1027235030 102723:50:30 



etc 



Complete 

Within specific year of any century 
Ditto, with hour and minute only 
Ditto, within specific ordinal date in any year 
Ditto, with hour only 

Within specific year of any century, with hour only 
Within specific ordinal date in any year of any century 



Combinations of calendar week, day number and local tima of the day 



etc. 



1985W1557: 
85W156T236030 
85W15572350 

W1 5572350 

W155723 
85W155723 

W155T235Q30 



1985-W15-5723:50:30 
85-W1 5-5723:50:30 
85-W1 5-5723:50 

W15-5723.50 

W1 5-5723 
65-W1 5-5723 

W15-5T23;50:30 



Complete 

Within specific year of any century 
Ditto, with hour and minute onry 
Ditto, in any year 
Ditto, with hour only 

Within specific year of any century, with hour only 

Within specific week and day of that week, in any century and year 



Combinations of day number and local tima of the day 



5T 
572350 
5723 



5723:50:30 
5723:50 
not applicable 



Any Friday, complete 
With hour and minute only 
With hour only 



Extended format 



B.4 Periods of time 

Basic format 
Period with specific start and specific end 

iSS Mnfl " 20 m " ,U,BS and 60 Pa* * hours on 12 April 1985 and ending a, 30 minutes past 10 hours on 

19860412T232050/ 19650625711 



«.M.I 



A period beginning on 12 April 1985 and ending on 25 June 1985 
19850412/0625 

Duration of a period as a quantity of tima 



1985^12723:20:50/1985^25710:31*00 



1985-04-12/06-25 



7wo years, ten months, 15 days, 10 hours. 20 minutes and 30 seconds 
P2Y10M15DT10H20M30S 



One year and six months 
P1Y6M 



not applicable 



not applicable 
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Seventy-two hours 

PT72H not applicable 

Period with specific start and specific duration 

A period of one year, 2 months, 15 days and 12 hours, beginning on 12 April 1985 at 20 minutes and 50 seconds past 23 hours 
19850412T232050/P1Y2M15OT12H 1985O4-12T23:20:50/P1Y2M15OT12H 

Period of specific duration and with specific end 

A period of one year, 2 months, 15 days and 12 hours, ending on 12 April 1985 at 20 minutes and 50 seconds past 23 hours 
P1Y2M15OT12H/19850412T232050 P1Y2M15DT12H/1985W2T23:20:50 
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Subclause 5.3 

Lines 3 and 4, delete "1013 to [24]" and "[01] to [60]" and insert "[00] to [24]" and "[00] to [59]" 
Subclause 5.3.1.3 

Last fine, delete "shall be preceded by a zero" and insert "shall be preceded by two zeros in accordance with 4.6" 
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Annex B 

Clause B.1, Calendar week — 15th week of 1985, extended format column, delete "-5W15" and insert "-5-W15" 
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0 INTRODUCTION 

In all forms of international traffic and exchange, dates 
must be clearly designated and able to be compared 
without any ambiguity. 

This International Standard for writing of calendar dates 
in all-numeric form has been prepared to obviate the 
confusion arising from misinterpretation of the significance 
of the numerals in a date written with numerals only; it is 
considered that similar confusion does not arise when the 
month is spelled out, either in full or in abbreviated form. 

The occasions on which an all-numeric date might be used 
have been examined and the advantages for these occasions 
of the descending order year— month— day have been found 
to outweigh those for the ascending order day— month- 
year, established in many parts of the world. 

The advantages of this descending order include the 
following in particular : 

— the ease with which the whole date may be treated 
as a single numeral for the purpose of filing and classi- 
fication {for example for insurance or social security 
systems) ; 

— arithmetic calculation, particularly in some computer 
uses; 

— the possibility of continuing the order by adding 
digits for hour— minute— second. 

1 SCOPE 

This International Standard specifies the writing of dates of 
the Gregorian calendar in all-numeric form, signified by the 
elements year, month, day. 

2 FIELD OF APPLICATION 

This International Standard is applicable whenever a 
calendar date containing the elements year, month, day is 
written in all-numeric form. 



3 RULES FOR WRITING CALENDAR DATES 

3.1 Sequence 

An all-numeric date shall be written in the following order : 

year— month— day 

3.2 Characters 

An all-numeric date shall be expressed exclusively in arabic 
numerals, i.e. by using only the decimal digits 0, 1, 2, . . ., 9 
and, if required, the hyphen (see 3.4). 

3.3 Elements 

An all-numeric date shall consist of 

— four digits to represent the year; 

NOTE — Two digits may be used where no possible confusion 
can arise from the omission of the century; however, four digits 
should be applied especially in correspondence and for docu- 
mentation purposes to indicate clearly that the descending 
order is used. 

— two digits to represent the month; 

— two digits to represent the day. 

3.4 Separator 

Where a separator is used in an all-numeric date, only a 
hyphen or a space shall be used between year and month, 
and between month and day. 

3.5 Examples 

The 1st July 1976 shall be written in one of the following 
ways : 

a) 19760701 

b) 1976-07-01 

c) 1976 07 01 
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0 INTRODUCTION 

In alt forms of international traffic and exchange, dates 
must be clearly designated and able to be compared 
without any ambiguity. 

This International Standard for writing of calendar dates 
in all-numeric form has been prepared to obviate the 
confusion arising from misinterpretation of the significance 
of the numerals in a date written with numerals only; it is 
considered that similar confusion does not arise when the 
month is spelled out, either in full or in abbreviated form. 

The occasions on which an all-numeric date might be used 
have been examined and the advantages for these occasions 
of the descending order year— month— day have been found 
to outweigh those for the ascending order day— month- 
year, established in many parts of the world. 

The advantages of this descending order include the 
following in particular : 

— the ease with which the whole date may be treated 
as a single numeral for the purpose of filing and classi- 
fication (for example for insurance or social security 
systems); 

— arithmetic calculation, particularly in some computer 
uses; 

— the possibility of continuing the order by adding 
digits for hour— minute— second. 

1 SCOPE 

This International Standard specifies the writing of dates of 
the Gregorian calendar in all-numeric form, signified by the 
elements year, month, day. 

2 FIELD OF APPLICATION 

This International Standard is applicable whenever a 
calendar date containing the elements year, month, day is 
written in all-numeric form. 



3 RULES FOR WRITING CALENDAR DATES 

3.1 Sequence 

An all-numeric date shall be written in the following order : 

year— month —day 

3.2 Characters 

An all-numeric date shall be expressed exclusively in arabic 
numerals, i.e. by using only the decimal digits 0, 1, 2, . . 9 
and, if required, the hyphen (see 3.4). 

3.3 Elements 

An all-numeric date shall consist of 

— four digits to represent the year; 

, NOTE — Two digits may be used where no possible confusion 
can arise from the omission of the century; however, four digits 
should be applied especially in correspondence and for docu- 
mentation purposes to indicate clearly that the descending 
order is used. 

— two digits to represent the month; 

— two digits to represent the day. 

3.4 Separator 

Where a separator is used in an all-numeric date, only a 
hyphen or a space shall be used between year and month, 
and between month and day. 

3.5 Examples 

The 1st July 1976 shall be written in one of the following 
ways : 

a) 19760701 

b) 1976-07-01 

c) 1976 07 01 
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PREFACE 



This is the first edition of this specification and should be treated as 
a request for comments, advice, and suggestions. A great deal of prior 
work has been done on computer aided message systems and some of this is 
listed in the reference section. This specification was shaped by many 
discusions with members of the ARPA research community, and others 
interested in the development of computer aided message systems. This 
document was prepared as part of the ARPA sponsored Internetwork 
Concepts Research Project at ISI, with the assistance of Greg Finn, Alan 
Katz, Paul Mockapetris, and Mamie Chew. 

Jon Postel 
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1. 



INTRODUCTION 



This document describes an internetwork message system. The system is 
designed to transmit messages between message processing modules 
according to formats and procedures specified in this document. The 
message processing modules are processes in host computers. Message 
processing modules are located in different networks and together 
constitute an internetwork message delivery system. 

This document is intended to provide all the information necessary to 
implement a compatible cooperating module of this internetwork message 
system. 

1.1. Motivation 

As computer supported message processing activities grow on individual 
host computers and in networks of computers, there is a natural desire 
to provide for the interconnection and interworking of such systems. 
This specification describes the formats and procedures of a general 
purpose internetwork message system, which can be used as a standard 
for the interconnection of individual message systems, or as a message 
system in its own right. 

We also provide for the communication of data items beyond the scope 
of contemporary message systems. Messages can include typed segments 
which could represent drawings, or facsimile images, or digitized 
speech. One can imagine message stations equipped with speakers and 
microphones (or telephone hand sets) where the body of a message or a 
portion of it is recorded digitized speech. The output terminal could 
include a graphics display, and the message might present a drawing on 
the display, and verbally (via the speaker) describe certain features 
of the drawing. This specification provides basic data elements for 
the transmission of structured binary data, as well as providing for 
text transmission. 

1.2. Scope 

The Internet Message Protocol is intended to be used for the 
transmission of messages between networks. It may also be used for 
the local message system of a network or host. This specification was 
developed in the context of the ARPA work on the interconnection of 
networks, but it is anticipated that it has a more general scope. 

Postel [Page 1] 



3 



I 



March 1979 

Internet Message Protocol 
Introduction 



The focus here is on the internal mechanisms to transmit messages, 
rather than the external interface to users. It is assumed that a 
number of user interface programs will exist. These will be both new 
programs designed to work with system and old programs designed to 
work with earlier systems. 

1.3. The Internetwork Environment 

The internetwork message environment consists of processes which run 
in hosts which are connected to networks which are interconnected by 
gateways. Each individual network consists of many different hosts. 
The networks are tied together through gateways. The gateways are 
essentially hosts on two (or more) networks and are not assumed to 
have much storage capacity or to "know" which hosts are on the 
networks to which they are attached [5] . 

1.4. Operation 

The model of operation is that this protocol is implemented in a 
process. Such a process is called a Message Processing Module or MPM . 
The MPMs exchange messages by establishing full duplex communication 
and sending the messages in a fixed format described in this document. 
The MPM may also communicate other information by means of commands 
described here. 

A message is formed by a user interacting with a User Interface 
Program or UIP. The user may utilize several commands to create 
various fields of the message and may invoke an editor program to 
correct or format some or all of the message. Once the user is 
satisfied with the messages it is "sent" by placing it in a data 
structure shared with the MPM. 

The MPM discovers the unprocessed input data (either by a specific 
request or by a general background search), examines it, and using 
routing tables determines which outgoing link to use. The destination 
may be another user on this host, a user on another host in this 
network, or a user in another network. 

In the first case, another user on this host, the MPM places the 
message in a data structure shared with the destination user, where 
that user's UIP will look for incoming messages. 

In the second case, the user on another host in this network, the MPM 
transmits the message to the MPM on that host. That MPM then repeats 
the routing decision, and discovering the destination is local to it, 
places the messages in the data structure shared with the destination 
user . 
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In the third case, the user on a host in another network, the MPM 
transmits the messages to an MPM in that network if it knows how to 
establish a Connection directly to it, otherwise the MPM transmits the 
message to an MPM that is "closer" to the destination. An MPM might 
not know of direct connections to MPMs in all other networks, but it 
must be able to select a next MPM to handle the message for each 
possible destination network. 

A MPM might know a way to establish direct connections to each of a 
few MPMs in other nearby networks, and send all other messages to a 
particular big brother MPM that has a wider knowledge of the internet 
environment . 

A individual network's message system may be quite different from the 
internet message system. In this case, intranet messages will be 
delivered using the network's own message system. If a message is 
addressed outside the network, it is given to a MPM which then sends 
it through the appropriate gateways via internet procedures and format 
to (or toward) the MPM in the destination network. Eventually, the 
message gets to a MPM on the network of the recipient of the message. 
The message is then sent via the local message system to that host. 

When local message protocols are used, special conversion programs are 
required to transform local messages to internet format when they are 
going out, and to transform internet messages to local format when 
they come into the local environment. Such transformations are 
potentially information lossy. The internet message format attempts 
to provide features to capture all the information any local message 
system might use. However, a particular local message system is 
unlikely to have features equivalent to all the possible features of 
the internet message system. Thus, in some cases the transformation 
* of an internet message to a local message discard of some of the 
information. For example, if an internet message carrying mixed text 
and speech data in the body is to be delivered in a local system which 
only carries text, the speech data may be replaced by the text string 
"There was some speech here". Such discarding of information is to be 
avoided when at all possible, and to be defered as long as possible, 
still the possibility remains, that in some cases, it is the only 
reasonable thing to do. 

1.5. Interfaces 

The MPM calls on a reliable communication procedure to communicate 
with other MPMs. This is a Transport Level protocol such as the TCP 
[20] . The interface to such a procedure conventionally provides calls 
to open and close connections, send and receive data on a connection, 
and some means to signal and be notified of special conditions (i.e., 
interrupts) . 
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The MPM receives input and produces output through data structures 
that are produced and consumed respectively by user interface (or 
other ) programs . 
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2. FUNCTIONAL DESCRIPTION 

2.1. Terminology 

The basic unit transferred between networks is called a message. A 
message is made up of a transaction identifier (a number which 
uniquely identifies the message), a command list (which contains the 
necessary information for delivery), and the document list. The 
document list consists of a header and a body, which contains the 
actual data of the message. 

For a personal letter the document body corresponds to the contents 
the a letter, the document header corresponds to the the address and 
return address on the envelope. 

For an inter-office memo the document body corresponds to the text, 
the document header corresponds to the header of the memo. 

The commands correspond to the information used by the Post Office or 
the mail room to route the letter or memo. 

The messages are routed by a process called the message processing 
module or MPM. Messages are created and consumed by User Interface 
Programs (UIPs) in conjunction with users. 

Please see the Glossary section for a more complete list of 
terminology. 

2.2. Assumptions 

The following assumptions are made about the internetwork environment: 

It is in general not known what format intranet addresses will assume. 
Since no standard addressing scheme would suit all networks, it is 
safe to assume there will be several and that they will change with 
time. Thus, frequent software modification throughout all internet 
MPMs would be required if such MPMs were to know about the formats on 
many networks. Therefore, each MPM which handles internet messages is 
required to know only the minimum necessary to deliver them. 

We require each MPM to know completely only the addressing format of 
its own network. In addition, the MPM must be able to select an 
output link for each message addressed to another network or host. 
This does not preclude more intelligent behavior on the part of a 
given MPM, but at least this minimum is necessary. Each network has a 
unique name and number. 

Each MPM will have a unique internet address. This feature will 
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enable every MPM to place a unique "handling- stamp" on a message which 
passes through it en-route to delivery. 

2.3. General Specification 

There are several aspects to a distributed service to be specified. 
First there is the service to be provided, that is, the 
characteristics of the service as seen by its users. Second there is 
the service it uses, that is, the characteristics it assumes to be 
provided by some lower level service. And, third there is the 
protocol used between the modules of the distributed service. 



User 
\ 



\ 



\ 



\ 

+ + 

! Module ! 
+ + 

\ 

+ 



< — Protocol — > 



/ 

+ + 

! Module ! 
+ + 

/ 

+ 



! Communication Service ! 
+ + 



User 
/ 



/ 



/ 



Service 
Interface 



Message Service 



Figure 1 . 



The User/Message Service Interface 



The service the message delivery system provides is to accept 
messages conforming to a specified format and to attempt to deliver 
those messages, and to report on the success or failure of the 
delivery attempt. This service is provided in the context of an 
interconnected system of networks, and may involve relaying a 
message through several intermediate MPMs utilizing different 
communication services. 

The Message/Communication Service Interface 

The message delivery system calls on a communication service to 
transfer information from one MPM to another. There may be 
different communication services used between different pairs of 
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User User 

\ / 

\ / 

\ / 
+ . + 

\ . / 

+ + + + + + 

! MPM I < — Protocol — > ! MPM ! < — Protocol — > ! MPM ! 

+ + + + + + 

! / \ ! 
+ + + + 

! Communication Service A! ! Communication Service B! 
+ + + + 



Message Service with Internal Relaying 

Figure 2 . 

The transfer of data between UIPs and MPMs is conceived of as the 
exchange of data structures which encode messages. The transfer of 
data between MPMs is also in terms of the transmission of structured 
data. 
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MPMs, though all communication services must meet the following 
service characteristics. 

It is assumed that the communication service provides a reliable two 
way data stream. Such a data stream can usually be obtained in 
computer networks from the transport level protocol, for example, 
the Transmission Control Protocol (TCP) [20] . In any case the 
properties the communication service must provide are: 

o Logical connections for two way simultaneous data flow of 

arbitrary data (i.e., no forbidden codes). Data is delivered 
in the order sent with no gaps. 

o Simple commands to open and close the connections, and to send 
and receive data on the connections. 

o A way to signal and be notified M out-of-band" (such as TCP's 
urgent) is available so that some messages can be labeled "more 
important" than others. 

o Controlled flow of data so that data is not transmitted faster 
that the receiver chooses to consume it (on the average) . 

o Transmission errors are corrected without user notification or 
involvement. Complete breakdown on communication is reported 
to the user. 

The Message-Message Protocol 

The protocol used between the distributed modules of the message 
delivery system, that is, the MPMs is a small set of commands which 
convey requests and replies. These commands are encoded in a highly 
structured and rigidly specified format. 

2.4. Mechanisms 

MPMs are processes which use some communication service. A pair of 
MPMs which can communicate reside in a common interprocess 
communication environment. A MPM might exist in two (or more) 
interprocess communication environments, and such an MPM might act to 
relay messages between MPMs in the environments. 
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Message Flow 
Figure 3. 

In the following, a message will be described as a structured data 
object represented in a particular kind of typed data elements. This 
is how a message is presented when transmitted between MPMs or 
exchanged between an MPM and a UIP. Internal to a MPM (or a UIP), a 
message may be represented in any convenient form. As the following 
figure shows, when a message is ready for transmission, it moves from 
the processing routines to be encoded in the typed data elements and 
then to a data compression routine, and is finally transmitted. On 
the receiving side, the message is first decompressed then decoded 
from the data element representation to the local representation for 
the processing routines. 
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Detailed View 
Figure 4 . 
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2.5. Relation to Other Protocols 

The following diagram illustrates the place of the message protocol in 
the protocol hierarchy: 



+ + + -f + + + + 

! Telnet! ! FTP ! ! Message! ! Voice! 
+ + + + + + + + 

\ ! / ! 
+ + + + 

! TCP ! ! RTP ! 

+ + + + 

i i 



+ ■ 



Internet Protocol 



+■ 
t 



I 

+■ 



! Application Level 
+ 



! Host Level 

■+ 



+ 



t 

+ + 

! Local Network Protocol ! 
+ + 

i 



Gateway Level 



Network Level 



Protocol Relationships 
Figure 5. 



The message protocol interfaces on one side to user interface programs 
and on the other side to a reliable transport protocol such as TCP. 
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3. DETAILED SPECIFICATION 

The presentation of the information in this section is difficult since 
everything depends on everything, and since this is a linear media it 
has to come in some order. In this attempt, a very brief overview of 
the message structure is given, then a radical switch is made to 
defining the basic building blocks, and finally using the building 
blocks to reach the overall structure again. 

3.1. Overview of Message Structure 

In general a message is composed of three parts: the identification, 
the command, and the document. Each part is in turn composed of 
message objects. 

The identification part is composed of a transaction number assigned 
by the originating MPM, and the internet host number of that MPM. 

The command part is composed of an operation type, an operation code, 
an argument list, an error list, the destination mailbox, and a stamp. 
The stamp is a list of the MPMs that have handled this message. 

The document part is composed of a header and a body. The message 
delivery system does not depend on the contents of the document part, 

but this specification does make some recommendations for the document 
header. 

The following sections define the representation of a message as a 

structured object composed of other objects. Objects in turn are 
represented using a set of basic data elements. 

3.2. Data Elements 

The data elements defined here are similar to the data structure and 
encoding used in NSW [18] . 

Each of the diagrams which follow represent a sequence of octets. 
Field boundaries are denoted by the "!" character, octet boundaries by 
the "+" character. The diagrams are presented in left to right order. 
Each element begins with a one octet code. 
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Code Type 



0 No Operation 



1 Padding 



2 Boolean 



3 Index 



4 Integer 



5 Bit String 



6 Text String 



7 List 



8 Proplist 



Representation 

+ + 

! 1 ! 
+ + 

+ + + + + 

! 0 ! octet count ! Data . . . 
+ + + + + 

! 2 ! 1/0 ! 
+ + + 

+ + + + 

! 3 ! Data ! 

+ + + + + + 

! 4 ! Data ! 
+ + + + + + 

+ + + + + 

! 5 ! bit count ! Data . . . 
+ + + + + 

+ + + + + 

! 6 ! octet count ! Data . . . 
+ + + + + 

+ + + + + + + 

! 7 ! octet count ! item count ! Data 
+ ■+ + + + + + 

+ + + + + 

! 8 ! octet count ! Data . . . 
+ + + + + 
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Element code 0 (NOP) is an empty data element used for padding when it 
is necessary. It is ignored. 

Element code 1 { PAD) is used to transmit large amounts of data with a 
message for test or padding purposes. No action is taken with this 
data but the count of dummy octets must be correct to indicate the 
next element code. 

Element code 2 (BOOLEAN) is a boolean data element which has the value 
1 for True and 0 for False. 

Element code 3 (INDEX) is a 16-bit unsigned integer datum. Element 
code 3 occupies only 3 octets. 

Element code 4 (INTEGER) is a signed 32-bit integer datum. This will 
always occupy five octets. Representation is two's complement. 

Element code 5 (BITSTR) is a bit string element for binary data. The 
bit string is padded on the right with zeros to fill out the last 
octet if the bit string does not end on an octet boundary. This data 
type must have the bit-count in the two octet count field instead of 
the number of octets. 

Element code 6 (TEXT) is used for the representation of text. Seven 
bit ASCII characters are used, right justified in the octet. The high 
order bit in the octet is zero. 

Element code 7 (LIST) can be used to create structures composed of 
other elements. The item-count contains the number of elements which 
follow. Any element may be used including List itself. The octet 
count specifies the number of octets in the whole list. A null or 
empty List, one with no elements, has an item-count of zero (0) . 
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Element code 8 (PROPLIST) is the Property-List element. It has the 
following form: 



+ + + + + + 

! 8 ! octet ! pair ! 

! ! count ! count ! 
+ + + + + + 

+ + + + + + 

! name ! value ! name ! value ! 

repeated ! count ! count ! . . . ! . . . ! 

+ + + + + + 

The Property-List structure consists of a set of unordered name/value 
pairs. The pairs are a one octet name count and a two octet value 
count followed by the name and value strings. The counts specify the 
length in octets of the name and value strings. Each string has a 
length in octets which agrees with its respective count. The count of 
octets until the next pair in the property list is 1 + 2 + name count 
+ value count octets. The entire Property-List is of course equal in 
length to the octet count of the element itself. Immediately 
following the octet count for the entire element is a one octet pair 
count field which contains the total number of name/value pairs in the 
Proplist. 

3.3. Message Objects 

In the composition of messages we use a set of objects such as 
address, or date. These objects are encoded in the basic data 
elements. The message objects are built of data elements. 

While data elements are typed, message objects are not. This is 
because messages are structured to the extent that only one kind of 
message object may occur in any position of a message structure. 

The following is a list of some of the objects used in messages. The 
object descriptions are grouped by the section of the message in which 
they normally occur. 
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Identification 

Internet Host Number (ihn) 

This identifies a host in the internetwork environment. When used 
as a part of tid, it identifies the originating host of a message. 
The ihn is a 32 bit number, the higher order 8 bits identify the 
network, and the lower order 24 bits identify the host on that 
network. 

INTEGER 

Transaction Identifier (tid) 

This is the transaction identifier associated with a particular 
command. It is a list of the transaction number and the internet 
host number of the originating host. 

LIST ( tn , ihn ) 

Transaction Number (tn) 

This is a number which is uniquely associated with this 
transaction by the originating host. It identifies the 
transaction. (A transaction is a message and acknowledgment, this 
is discussed in more detail in later sections.) A tn must be 
unique for the time which the message (a request or reply) 
containing it could be active in the network. 

INDEX 

Command 

Address 

This is very similar to Mailbox in that it also is the "address" 
of a user. However, Address is intended to contain the minimum 
information necessary for delivery, and no more. 

PROPLIST ( ) 

Answer 

A yes (true) or no (false) answer to a question. 
BOOLEAN 
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Arguments 

This is the argument to many of the operations. It consists of a 
List of different data types. The List will have form and data 
relevant with the particular operation. 

LIST ( ) 

Command-Type 

Gives the type of a command (e.g., request, reply, alarm). 
INDEX 
Error-List 

The error list contains information concerning an error which has 
occured. It is a List comprised of the two objects error-class 
and error-string. 

LIST ( error class, error string ) 
Error-Class 

A code for the class of the error. 

INDEX 
Error-String 

A text string explaining the error. 

TEXT 
How- Delivered 

A comment on the delivery of a messages, for instance a message 
could be delivered, forwarded, or turned over to general delivery. 

LIST ( TEXT ) 
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Mailbox 

This is the "address" of a user of the internetwork mail system. 
Mailbox contains information such as net, host, location, and 
local user-id of the recipient of the message. Some information 
contained in Mailbox may not be necessary for delivery. 

As an example, when one sends a message to someone for the first 
time, he may include many items which are not necessary simply to 
insure delivery. However, once he gets a reply to this message, 
the reply could contain an Address (as opposed to Mailbox) which 
the user will use from then on. 

A mailbox is a PROPLIST. A mailbox might contain the following 
name-value pairs : 



name 

IA 

NET 

HOST 

USER 

CITY 

COUNTRY 

STATE 

ZIP 

PHONE 



element description 



INTEGER 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 



internet address 

network name 

host name 

user name 

city 

country 

state 

zip code 

phone number 



PROPLIST ( ) 

Operation 

This names the operation or procedure to be performed. 
TEXT 
Options 

REGULAR for normal delivery, FORWARD for message forwarding, 
GENDEL for general delivery, or other options which may be defined 
later. 



LIST { TEXT, 



) 
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Reasons 

These could be mailbox does not exist, mailbox full, etc. 
LIST ( TEXT ) 
Stamp 

Each MPM that handles the message must add a unique identifier 
(inn, see above) to the list. This will prevent messages from 
being sent back and forth through the internet mail system without 
eventually either being delivered or returned to the sender. 

LIST ( inn, ihn, ... ) 

Trail 

When a message is sent through the internetwork environment, it 
acquires a list of MPMs that have handled the message in "Stamp". 
This list is then carried as "Trail" upon reply or acknowledgment 
of that message. More simply, requests and replies always have a 
"Stamp" and each MPM adds its ihn to this "Stamp." Replies, in 
addition, have a "Trail" which is the complete "Stamp" of the 
original message. 

LIST ( ihn, ihn, ... ) 

Type 

The command type, e.g., request or reply. 
INDEX 
Document 

In this section, we define some objects useful in message document 
headers. The ones we use are taken from the current ARPANET message 
syntax standard [6,8]. 

CC 

When copies of a message are sent to others in addition to the 
addresses in the To object, those to whom the copies are sent will 
have their addresses recorded here. CC will be a single TEXT 
element . 

TEXT 
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Date 

The date and time are represented according to the International 
Standards Organization (ISO) recommendations [13,14,15]. Taken 
together the ISO recommendations 2014, 3307, and 4031 result in 
the following representation of the date and time: 

yyyy-mm-dd-hh:mm: ss, f f f +hh:mm 

Where yyyy is the 4 digit year, mm is the two digit month, dd is 
the two digit day, hh is the two digit hour in 24 hour time, mm is 
the two digit minute, ss is the two digit second, and fff is the 
decimal fraction of the second. To this basic date and time is 
appended the offset from Greenwich as plus or minus hh hours and 
mm minutes . 

TEXT 

Document-Body 

The document body will contain that portion of the message 
commonly thought of as the text portion. It will be composed of a 
list of elements. This will allow transmission of data other than 
pure text if such capabilities are needed. We can, for instance, 
envision digital voice communication through the transmission of 
BITSTR element, or transmission of graphic data, etc. Information 
regarding control of such features could be included in the header 
for cooperating sites, or in the body itself but such protocols 
would depend upon agreement among those sites involved. It is 
expected of course that the majority of messages will contain body 
portions comprised of TEXT elements. 

LIST ( ) 

Document-Header 

The document header contains the memo header presented to the 
user. In principle this may be of any style or structure. In 
this specification it is recommended that a PROPLIST be used and 
that the name-value pairs correspond to the header fields of 
RFC 733 [6] . 

PROPLIST ( ) 
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From 

The From is meant to be the name of the author of a document. It 
will be one TEXT element. 

TEXT 

Reply-To 

Sometimes it will be desired to direct the replies of a message to 
some address other than the From or the Sender. In such a case 
the Reply-To object can be used. 

TEXT 
Sender 

The Sender will contain the address of the individual who sent the 
message. In some cases this is NOT the same as the author of the 
message. Under such a condition, the author should be specified in 
the From object. The Sender is a single TEXT element. 

TEXT 

Subject 

The subject of the message. 

TEXT 

To 

To identifies the addressees of the message. The To object is one 
TEXT element. 

TEXT 
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3.4. Command 

This section describes the commands which processes in the internet 
message system can use to communicate. Several aspects of the command 
structure are based on the NSW Transaction Protocol [19] . The 
commands come in pairs, with each request having a corresponding 
reply. 

A command is a list: 

LIST { mailbox, stamp, type, operation, arguments, error-list ) 

The arguments are described generally here and more specifically, if 
necessary, in the description of each command. 

mailbox: PROPLIST 

This is the "to" specification of the message. Mailbox takes the 
form of a property list of general information, some of which is 
the essential information for delivery, and some of which could be 
extra information which may be helpful for delivery. Mailbox is 
different from address in that address is a very specific list 
without extra information. 

stamp: LIST ( INTEGER, ... ) 

This is a list of the MPMs that have handled the message. Each 
MPM must add its 32 bit Internet Host Number (ihn) to the LIST. 

type: INDEX 

type=l a REQUEST operation. 
type=2 a REPLY operation. 

type=3 an ALARM operation. (A high priority message.) 

type=4 a RESPONSE to an alarm operation. 

operation: TEXT 

Operation is the name of the operation or procedure to be 
performed. This string must be interpreted in an upper/lower case 
independent manner. 
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arguments: LIST 

This is a list of arguments to the above operation, 
error-list: LIST 

If message is type 1 or 3 (a request or an alarm) : 
LIST { ) (a zero length list) 

If message is a type 2 or 4 (a response or response to alarm) 

LIST ( error-class, error-string ) indicates what, if any, error 
occured 

error-class : INDEX 

=0: indicates success, no error 
=1: partial results returned. 

This error class is used when several steps are performed by 

one operation and some of them fail. 
=2: failure, resources unavailable. 
=3: failure, user error. 
=4: failure, MPM error. Recoverable. 
=5: failure, MPM error. Fatal. 
=6: User abort requested 

error-string: TEXT 

This is a human readable character string describing the error. 

Possible errors: 



error-string 



error-class 



No errors 

Command not implemented 

Syntax error, command unrecognized 

Syntax error, in arguments 

Server error, try again later 

No service available 

User requested abort 



0 
2 
3 
3 
4 
5 
6 
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command: DELIVER 
type: 1 

function: Sends message to a mailbox 
reply: The reply is ACKNOWLEDGE 
arguments: LIST ( options ) 

options: one or more of the following 

"REGULAR" regular delivery 

"FORWARD" message forwarding 

"GENDEL" general delivery 

other options which may be defined later 
argument structure : 

LIST ( LIST ( TEXT, ... ) ) 
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command : ACKNOWLEDGE 
type: 2 

function: reply to DELIVER 

arguments: LIST { tid, trail, answer, reasons, how-delivered ) 
tid: tid of the originating message 



reasons: if the answer is yes, the reason is "ok", if the answer 
is no the reason could be one of "no such user", "no such host", 
"no such network", "address ambiguous", or a similar response 

how-delivered: one or more of the following: 

"FORWARD" message was accepted for forwarding 



trail : 



the stamp from the deliver command 



answer : 



yes if delivered successfully, 
no if error in delivery. 



GENDEL 



message was accepted for general delivery 



if 



ACCEPT" 



message was accepted for normal delivery 



other types of delivery may be defined later 



argument structure : 



LIST ( LIST ( INDEX, INTEGER ), 



LIST ( INTEGER, ... ) , 

BOOLEAN, 

LIST ( TEXT ) , 

LIST ( TEXT ) ) 
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command: PROBE 
type: 1 

function: finds out if specified mailbox (specified in mailbox of 
the command) exists at a host 

reply: the reply is RESPONSE 

arguments: LIST ( — none — ) 

argument structure: 

LIST ( ) 
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command : RES PONSE 
type: 2 

function: reply to PROBE 

arguments: LIST ( tid, trail, answer, address OR reasons ) 

tid: the tid which came from the originating PROBE 

trail: the stamp which came from the originating PROBE 

answer: Yes if mailbox found, or no for invalid mailbox 

if answer is yes the fourth argument is address 
if answer is no it is reasons 

address: a specific address in the network 

reasons: a reason why mailbox is invalid 

Possible reasons include: 

"Mailbox doesn't exist" 

"Mailbox full" 

"Mailbox has moved, try this new location", address 

address is a new address to try 

argument structure : 

if answer is yes 

LIST ( LIST ( INDEX, INTEGER ), 
LIST ( INTEGER, ... ) , 
BOOLEAN, 
PROPLIST ) 

if answer is no 

LIST ( LIST ( INDEX, INTEGER ) , 
LIST { INTEGER, ... ) , 
BOOLEAN, 
LIST ( TEXT ) ) 
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command : CANCEL 
type: 3 

function: abort request for specified transaction 
reply: The reply is CANCELED 
arguments: LIST ( tid ) 

tid of transaction to be cancelled 
argument structure : 

LIST { LIST { INDEX, INTEGER ) ) 
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command: CANCELED 
type : 4 

function: reply. to CANCEL 

arguments: LIST ( tied, trail, answer ) 
tid: tid of transaction to be cancelled 
trail: the stamp of the CANCEL command 
answer: yes if the command was canceled, no if not. 

argument structure : 

LIST { LIST ( INDEX, INTEGER ) , 
LIST { INTEGER, ... ) , 
BOOLEAN ) 



[Page 30] 



Postel 



March 1979 



Internet Message Protocol 

Specification 



To summarize again, a command consists of a LIST of the following 
obj ects : 



name 



element 



mailbox 



PROPLIST 

LIST ( INTEGER, . . . 

INDEX 

TEXT 

LIST { ) 

LIST ( INDEX, TEXT ) 



stamp 
type 



operation 
arguments 
error 



3.5. Document 

The actual document follows the command list. It contains a header 
which usually contains such information as From, To, Date, CC, etc.; 
and the actual body of the message. The message delivery system does 
not depend on the document. The following section should be taken as 
a recommendation for common practice, not as a requirement. 

Document Header 

For the same reason that it is impossible to for see the many forms 
that intranet addresses will take, standardizing of document headers 
would also be a mistake. The approach we suggest is to lay the 
groundwork for a set of basic document header functions and provide 
for enough extensibility to allow nets to add whatever header 
features they desire. Features added in this fashion, however, may 
not be understood by other networks. It is suggested that subset 
defined here be implemented by all networks. 

This subset is taken from the current ARPANET standard for message 
headers in the text oriented computer message system [6,8]. 

The document header will precede the document body portion of the 
message and will consist of a proplist data element. The document 
header is meant to be used by individual networks to tailor the 
header to suit their individual needs. As an example, consider the 
ARPA network. Typically, the receiver's name is taken to be his 
network address. It often prints in the document header in just 
that form: Frank@SITEX. Such a salutation is unacceptable in some 
more formal modes of communication. Some network might choose to 
place into header proplist the name-value pair ("SALUTATION:", "Mr. 
Frank Hacker") . Upon receipt of the message, the document handling 
program would then be able to scan the header proplist looking for 
such a pair and so be able to correctly address the recipient by 
name instead of by network address. However, other networks or 



Postel [Page 31] 



Internet Message Protocol 
Specification 



March 1979 



sites within the network may not understand such specific 
information. Under such a condition it should be ignored. 

The minimum header is a PROPLIST of the following name-value pairs: 

Name Value 



DATE TEXT 
FROM TEXT 

A normal header is a PROPLIST containing the following name-value 



pairs : 




Name 


Value 


DATE 


TEXT 


SENDER 


TEXT 


FROM 


TEXT 


TO 


TEXT 


CC 


TEXT 


SUBJECT 


TEXT 



Document Body 

The Body of the message is just a sequence of data elements which 
contains the actual document. Much of the time this will be a 
single TEXT element, but for some applications other data elements 
may be utilized. 

LIST ( ) 
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3.6. Message Structure 

An internet message is composed of three parts. The first is the tid 
which identifies the transaction; the second is the Command List; and 
the third part is the Document List, which is itself comprised of a 
Document-Header and a Document-Body. 

When shipped between two MPMs, a message will take the form of a LIST: 

Message is: 

LIST ( tid, Command-List, Document-List ) 

It is convenient to batch several messages together shipping them as 
a unit from one MPM to another. Such a group of messages is called 
a message-bag. 

A message-bag will be a LIST of Messages, each Message is of the 
form described above. 

Thus, a message-bag is: 

LIST ( Messagel, Message2, ... ) 

Message Sharing 

When messages are batched for delivery, it may often be the case 
that the same Document will be sent to more than one recipient. 
Since the Document portion can usually be expected to be the major 
parts of the message, much repeated data would be sent if a copy of 
the Mail for each recipient were to be shipped in the message-bag. 

To avoid this redundancy, messages are assembled in the message-bag 
so that actual data appears first and references to it appear later 
in the message-bag. Since each message has a unique tid, the 
references will indicate the tid of the actual data. In this sense, 
all references to copied data may be thought of as pointing earlier 
in the message-bag. The data to be retrieved can be thought of as 
indexed by tid. Note that the semantics require such references to 
point to data already seen. 

When a portion is Shared, that portion is determined by its position 
within a message, i.e., if the Command list was to be Shared, then 
its position within a Message would contain the tid of the message 
already seen whose Command list was identical to it. The same is 
true of the Document Header and the Document Body. Only a complete 
Command, Header, or Body may be Shared, never a partial one. 
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If an encryption scheme is used, that portion of the message which 
is encrypted can not be shared. This is due to the fact that 
encrypting keys will be specific between two individuals. 

Internal Message Organization 

The tid 

This is the transaction identifier. It is assigned by the 
originating MPM. 

The Command List 

The command-list is a LIST which contains two elements, content 
and command. 

Content is one item of element type INDEX. If content=0, the item 
is not shared and the next element of the LIST is the command. If 
content=l the item is shared. In this case, the second element 
will contain the tid of the command to share from. The tid must 
be of a prior message in the current message-bag. Other values of 
content may be defined later for different data structures. 

Thus, command-list is: 

LIST ( content, tid ) if content=l 

Or, 

LIST { content, command ) if content=0 
content is: 

INDEX which is 0 if there is no sharing 

and is 1 if sharing occurs 

tid is: 

the tid of the message to be shared from 
command is: 

LIST ( mailbox, stamp, type, operation, arguments, error-list ) 
The document-list 

The document portion of an internet message is optional and when 
present is comprised of a LIST containing two elements: 
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document-list is: 

LIST ( header-list, body-list ) 

While either the header-list or the body-list may be shared, both 
elements must appear in the m. 

The document-header 

The header-list will be a List which will always contain two 
elements. The first element will be content to indicate whether 
or not the header is to be shared. The second element will either 
be the tid of the header to be copied (if content=l) or it will be 
the document-header (which is a PROPLIST) containing the actual 
header information (if content=0) . The tid must point to a 
document-header already seen in the message-bag. 

The header-list is either: 

LIST ( content, tid ) if content^! 

Or, 

LIST ( content, document-header ) if content=0 

document-header is : 

PROPLIST which contains header information 

The document-body 

The body-list will be a LIST of two elements. The first element 
will again be content, indicating whether or not the body is to be 
shared. If it is shared, the second element will be tid 
indicating which body to copy. This tid must be of a message 
already seen in the message-bag. If content indicates no sharing, 
then the second item is a document-body. 

body-list is: 

LIST ( content, tid ) if content=l 

Or, 

LIST ( content, document-body ) if content=0 
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document-body is: 

LIST ( items comprising the body ... ) 
Message Fields 

message := { tid, command-list, document-list ) 
tid := ( tn, ihn ) 

command-list := ( content, command ) 

command := ( mailbox, stamp, type, operation, 

arguments, error-list ) 

document-list := ( header-list, body-list ) 

header-list : = ( content, document-header ) 

body-list := ( content, document-body ) 

3.7. MPM Organization 

Introduction 

The heart of the internet message system is the MPM which is 
responsible for routing and delivering message between the networks. 
Each network must have at least one MPM. These MPMs are connected 
together, and internet mail is always transferred along channels 
between them. The system interfaces with the already existent local 
message system. 

Since the local network message system may be very different from 
the internet system, special programs may be necessary to convert 
incoming internet messages to the local format. Likewise, messages 
outgoing to other networks may be converted to the internet format. 

The MPM 

Messages in the internet mail system are shipped in "bags, " each bag 
containing one or more messages. Each bag is addressed to a 
specific MPM and contains messages for the hosts on that MPM's 
network. 

Each MPM is expected to implement functions which will allow it to 
deliver local messages it receives and to forward non-local ones to 
other MPMs presumably closer to the message's destination. 
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Loosely, each MPM can be separated into five components: 

1 — Acceptor 

Receives incoming Message-Bags, from other MPMs, from UIPs, or 
from conversion programs. 

2 — Message-Bag Processor 

Splits a Bag into these three portions: 

a. Local Host Messages 

b. Local Net Messages 

c. Foreign Net Messages 

3 — Local Net Delivery 

Delivers local net and local host messages, may call on 
conversion program. 

4 — Foreign Net Router 

Creation of new Message-Bags for forwarding to other MPMs, 
determines route. 

5 — Foreign Net Shipper 

Activates foreign shipping channels and ships Message-Bag to 
foreign MPMs. Performs data compression while shipping bags. 

All of these components can be thought of as independent. Of the 
five, the Acceptor, the Local-Net Delivery, and the Message-Bag 
Processor are fully self-contained and communicate with each other 
only through a queue, the Bag-Input Queue. The function of the 
Acceptor is to await incoming Message-Bags and to insert them into 
the Bag-Input Queue. 

That queue is the input to the Message-Bag Processor component which 
will separate and deliver suitable portions of the Message-Bags it 
retrieves from the queue to one of three queues: 

a. Local-Host Queue 

b. Local-Net Queue 

c. Foreign Net Queue 

When a MPM decides to forward a message to another MPM, it must add 
its own identification (i.e., its ihn) to the stamp field of the 
command. The stamp then becomes a record of the route the message 
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has taken. An MPM should examine the stamp field to see if the 
message is in a routing loop. Some commands require the return of 
the stamp as a trail in the matching reply command. 

All of these queues have as elements complete Message-Bags (some of 
which may have been portions of the original Bag) . 

The Local-Host and Local-Net queues serve as input to the Local-Net 
Delivery process. This component is responsible for delivering 
messages to its local host and other hosts on its local net to which 
it is connected. It must be capable of handling whatever error 
conditions the local net might return, including the ability to 
retransmit. It may call on conversion program to reformat the 
messages into a form the local protocol will accept. This will 
probably involve such things as copying shared information. 

The other two processes are more closely coupled. The Foreign Net 
Router takes its input Bags from the Foreign Net Queue. From the 
internal information it contains, it determines which one of the 
MPMs to which it is connected should receive the Bag. 

It then places the Bag along with the routing information into the 
Shippable Mail Queue. The Foreign Net Shipper retrieves it from 
that queue and transmits it across a channel to the intended foreign 
MPM. 

The Foreign Net Router should be capable of receiving external input 
to its routing information table. This may come from the Foreign 
Net Shipper in the case of a channel going down, requiring a 
decision to either postpone delivery or to determine a new route. 

The Router is responsible for maintaining sufficient topological 
information to determine where to forward any incoming Message-Bag. 
Decisions concerning the return of undeliverable Bags are made by 
the Router. 

It should be stressed here that message delivery should be reliable. 
In the event that delivery is impossible, the message should be 
returned to the sender along with information regarding the reason 
for not delivering it. 

Implementation Recommendations 

Transaction numbers can be assigned sequentially with wrap around 
when the highest value is reached. This should ensure that no 
message with a particular transaction number from this source is in 
the network when another instance of this transaction number is 
chosen . 



[Page 38] 



Postel 



March 197 9 



Internet Message Protocol 

Specification 



3.8. Interfaces 
User Interface 

It is assumed that the interface between the MPM and the UIP 
provides for passing data structures which represent the document 
portion of the message. In addition this interface must pass the 
delivery address information (which becomes the information in the 
mailbox field of the command). It is weakly assumed that the 
information is passed between the UIP and the MPM via shared files, 
but this is not the only possible mechanism. These two processes 
may be more strongly coupled (e.g., by sharing memory), or less 
strongly coupled (e.g., by communicating via logical channels). 

Communication Interface 

It is assumed here that the MPM use an underlying communication 
system, and TCP [20] has been taken as the model. Again, this is 
not intended to limit the implementation choices, other forms of 
interprocess communication are allowed and other types of physical 
interconnection are permitted. One might even use dial telephone 
calls to interconnect MPMs (using suitable protocols to provide 
reliable communication) . 
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4 . EXAMPLES & SCENARIOS 
Example 1: Message Format 

Suppose we want to send the following message: 

Date: 1979-03-29-11:4 6-08:00 

From: Jon Postel <Postel@ISIB> 

Subject: Meeting Thursday 

To: Dave Crocker <DCrocker@Rand-Unix> 

CC: Mamie 

Dave: 

Please mark your calendar for our meeting Thursday at 3 pm. 
— jon. 

It will be encoded in the structured format. The following will 
present successive steps in the top down generation of this message. 

1. message 

2. { tid, command-list, document-list ) 

3 . ( ( tn, ihn ) , 

( content, command ) , 

( header-list, body-list ) ) 

4 . ( ( tn, ihn ) , 

( content, 

( mailbox, stamp, type, operation, 
arguments, error-list ) ), 
( ( content, document-header ), 

( content, document -body ) ) ) 

5. { (37, 167772404 ), 
( 0, { 

{ IA: 167772359, NET: arpa, HOST: rand-unix, 

USER: DCrocker ), 
( 167772404 ), 
1 

DELIVER 

( { REGULAR ) ) , 

( ) ) ), 
( ( 0, ( 

Date : 1 979-03-2 9-11 : 4 6-08 : 00 
From: Jon Postel <Postel@ISIB> 
Subject: Meeting Thursday 
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To: Dave Crocker <DCrocker@Rand-Unix> 
CC : Mamie ) ) , 
( 0, ( Dave: 

Please mark your calendar for our meeting 
Thursday at 3 pm. 

—jon. ) ) ) ) 



6. LIST( LIST( INDEX=37, INTEGER=167772404 ), 

LIST( INDEX=0, 
command LIST( PROPLIST ( IA: 167772359, 

NET: arpa, 

mailbox HOST : rand-unix, 

USER: DCrocker ) , 
stamp LIST{ INTEGER=167772404 ), 

type INDEX-1 
operation TEXT=" DELIVER" 

arguments LIST( LIST ( TEXT= " REGULAR" )), 

error-list LIST ( ) } ), 

LIST( LIST{ INDEX=0, 

document-header PROPLIST { 

DATE: 1979-03-29-11:46-08:00 
FROM: Jon Postel <Postel(MSIB> 
SUBJECT: Meeting Thursday 
TO: Dave Crocker <DCrocker@Rand-Unix> 
CC : Mamie ) ) , 
LIST( INDEX-0, 

document-body LIST( TEXT= 

"Dave: 

Please mark your calendar for 
our meeting Thursday at 3 pm. 

—jon." ) ) ) ) 



[Page 42] 



Postel 



March 197 9 



Internet Message Protocol 
Examples & Scenarios 



Example 2: Delivery and Acknowledgment 

The following is four views of the message of example 1 during the 
successive transmission from the origination MPM, through a relay MPM, 
to the destination MPM, and the return of the acknowledgment , through 
a relay MPM, to the originating MPM. 

+ + 



1 2 



sending — > originating — > relay — 
user MPM MPM 



> 



destination 
MPM 



> receiving 
user 



4 3 



originating < — relay <- 
MPM MPM 



destination 
MPM 



+ 



+ 



Transmission Path 



Figure 6. 



Postel 



[Page 43] 



March 1979 

Internet Message Protocol 
Examples & Scenarios 



1. Between the originating MPM and the relay MPM. 

LIST( LIST( INDEX=37 , INTEGER=167772404 ), 
LIST( INDEX=0, 
command LIST ( PROPLIST( IA: 167772359, 

NET: arpa, 

mailbox HOST : rand-unix, 

USER: DCrocker ) , 
stamp LIST( INTEGER=167772404 ), 

type INDEX=1 
operation TEXT=" DELIVER" 

arguments LIST( LIST( TEXT= " REGULAR " )), 

error-list LIST( ) ) ), 

LIST( LIST( INDEX=0, 

document-header PROPLIST ( 

DATE: 1979-03-29-11:46-08:00 
FROM: Jon Postel <Postel@ISIB> 
SUBJECT: Meeting Thursday 
TO: Dave Crocker <DCrocker@Rand-Unix> 
CC: Mamie ) ) , 
LIST( INDEX^O, 

document-body LIST ( TEXT= 

"Dave : 

Please mark your calendar for 
our meeting Thursday at 3 pm. 

—jon." ) ) ) ) 

The originating MPM sends the message of example 1 to a relay MPM. 
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2. Between the relay MPM and the destination MPM. 

LIST{ LIST( INDEX=37, INTEGER=167772404 ), 
LIST{ INDEX=0, 
command LIST( PROPLIST ( IA: 167772359, 

NET: arpa, 

mailbox HOST: rand-unix, 

USER: DCrocker ) , 
stamp LIST( INTEGER=167772404, 

INTEGER=167772246 ), 
type INDEX=1 
operation TEXT=" DELIVER" 

arguments LIST ( LIST( TEXT=" REGULAR" )), 

error-list LIST( ) ) ), 

LIST( LIST( INDEX=0, 

document-header PROPLIST ( 

DATE: 1979-03-29-11:46-08:00 
FROM: Jon Postel <Postel@ISIB> 
SUBJECT: Meeting Thursday 
TO: Dave Crocker <DCrocker@Rand-Unix> 
CC: Mamie ) ), 
LIST{ INDEX^O, 

document-body LIST ( TEXT= 

"Dave : 

Please mark your calendar for 
our meeting Thursday at 3 pm. 

— jon." ) ) ) ) 

The relay MPM adds its ihn to the stamp, but otherwise the message 
is unchanged. 
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3. Between the destination MPM and the relay MPM. 



LIST{ LIST( 
LIST( 

command 
mailbox 
stamp 
type 

operation 
arguments 
tid 

trail 

answer 
reason 

how-delivered 
error-list 



INDEX=1993, INTEGER=167772359 ), 
INDEX=0, 

LIST( PROPLIST( IA: 167772404, 

USER: *MPM* ) , 
LIST( INTEGER=167772359 ), 
INDEX=2 

TEXT= "ACKNOWLEDGE " 
LIST( LIST( INDEX=37, 

INTEGER=167772404 ), 
LIST( INTEGER=167772404, 
INTEGER-167772246, 
INTEGER=167772359 ), 
BOOLEAN=TRUE r 
LIST( TEXT="OK" ) , 
LIST( TEXT="ACCEPT" ) ), 
LIST( INDEX=0, 

TEXT="No Errors") ) , 



document LIST ( ) ) 



The destination MPM delivers the message to the user's DIP, and 
composes an acknowledgment. The acknowledgment is addressed to 
the originating MPM. Note that the trail is the stamp of the 
incoming message plus the ihn of the destination MPM. 
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4. Between the relay MPM and the originating MPM. 



LIST( LIST( 
LIST < 

command 
mailbox 
stamp 

type 

operation 
arguments 
tid 

trail 

answer 
reason 

how-delivered 
error-list 



INDEX=1993 / INTEGER=167772359 ), 
INDEX=0, 

LIST{ PROPLIST( IA: 167772404, 

USER: *MPM* ), 
LIST{ INTEGER=167772359 

INTEGER=167772246) , 
INDEX=2 

TEXT- "ACKNOWLEDGE " 
LIST( LIST{ INDEX=37, 

INTEGER=167772404 ), 
LIST( INTEGER=167772404, 
INTEGER=16777224 6, 
INTEGER=167772359 ), 
BOOLEAN=TRUE, 
LIST( TEXT="OK" ), 
LIST( TEXT="ACCEPT" ) ), 
LIST( INDEX=0, 

TEXT="No Errors") ) , 



document LIST( ) ) 

The relay MPM adds its ihn to the stamp and forwards the 
acknowledgment. 
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GLOSSARY 



1822 

BBN Report 1822, "The Specification of the Interconnection of 
a Host and an IMP". The specification of interface between a 
host and the ARPANET. 

Command List 

The part of a message used by the MPMs to determine the 
processing action to be taken. 

datagram 

A logical unit of data, in particular an internet datagram is 
the unit of data transfered between the internet module and a 
higher level module. 

Destination 

The destination address, an internet header datagram protocol 
field. 

Document List 

The part of the message created by or delivered to a user. 

header 

Control information at the beginning of a message, segment, 
datagram, packet or block of data. 

IMP 

The Interface Message Processor, the packet switch of the 
ARPANET . 

Internet Address 

A four octet (32 bit) source or destination address consisting 
of a Network field and a Local Address field. 

internet datagram 

The unit of data exchanged between a pair of internet modules 
(includes the internet header) . 

Local Address 

The address of a host within a network. The actual mapping of 
an internet local address on to the host addresses in a 
network is quite general, allowing for many to one mappings. 
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message 



module 



MPM 



octet 



Rest 



RTP 



Source 



TCP 



The unit of information transmitted between users of message 
systems. As transmitted between MPMs a message consists of a 
Transaction Identifier, a Command List, and a Document List. 



An implementation, usually in software, of a protocol or other 
procedure. 



A Message Processing Module, the process which implements this 
internet message protocol. 



An eight bit byte. 



The 3 octet (24 bit) local address portion of an Internet 
Address . 



Real Time Protocol: A host-to-host protocol for communication 
of time critical information. 



The source address, an internet header field 



Transmission Control Protocol: A host-to-host protocol for 
reliable communication in internetwork environments. 



Transaction Identifier 

The unique identifier of a message. 

Type of Service 

An internet datagram protocol header field which indicates the 
type (or quality) of service for this internet packet. 



UIP 



A User Interface Program, a program which presents message 
data to a user and accepts message data from a user. A 
program which interacts with the user in the composition and 
examination of messages. 



XNET 



A cross-net debugging protocol. 
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APPENDICES 

A. Encryption 

It would be straightforward to add the capability to have the document 
portion of messages either wholly or partially encrypted. The 
approach is to define an additional basic data element to carry 
encrypted data. The data within this element could be composed of 
other elements, but that could only be perceived after the data was 
decrypted. 



9 Encrypt ! 9 ! octet count ! Data . . . 

Element code 9 (ENCRYPT) is Encrypt. The format is the one octet type 
code, the three octet type count, and count octets of data. Use of 
this element indicates that the data it contains is encrypted. The 
encryption scheme is yet to be decided but will probably be the Public 
Key Encryption technique [23] due to the capacity for coded 
signatures . 

To process this, the user is asked for the appropriate key the first 
time an encryption block is seen for a particular message. The 
encrypted data is then decrypted. The data thus revealed will be in 
the form of complete data type fields. Encryption cannot occur over a 
partial field. The revealed data is then processed normally. 

Note that there is no reason why all fields of a document could not be 
encrypted including all document header information such as From, 
Date, etc. 
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B. Data Compression 

When message-bags are shipped between MPMs the data should be 
compressed according to the following scheme: 

shipping-unit := compression-type message-bag 

compression-type := A one octet compression type indicator. 

compression-type value description 



basic compression 

This basic compression procedure is the same as that defined for 
use with the ARPANET FTP [8] . Three types of compression-units 
may be formed, sequence-units, replication-units, and 
filler-units. The data is formed into a series of 
compression-units independent of the structure or object and 
element boundaries. 

sequence-unit 

A sequence-unit is a one octet flag arid count followed by that 
many data octets. 



The flag and count octet has its high order bit zero and the 
remaining bits indicate the count (in the range 0 to 127) of 
following data octets. 

replication-unit 

A replication-unit is a one octet flag and count followed by one 
data octet, which is to be replicated count times. 

!10! n ! data ! 

The flag and count octet has its high order two bits equal 
one-zero and the remaining six bits indicate the count (in the 
range 0 to 63) of number of time to replicate the data octet. 



0 
1 



no compression used 
basic compression 



!0! n ! n data octets ... 
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filler-unit 

A filler-unit is a one octet flag and count, indicating that a 
filler octet is to be inserted count times. 

+ — + + 

!11! n ! 
+ — + + 

The flag and count octet has its high order two bits equal 
one-one and the remaining six bits indicate the count (in the 
range 0 to 63) of number of time to insert the filler octet. 

The filler octet is zero, the octet with all bits zero. 
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Date Storage Strategies 

We are often confronted with questions about storage of date information. Many believe it is 
possible to reduce the millennium update work effort or minimize storage costs by working 
around the century. In this Journal we will explore some of the alternatives that we have 
employed and encountered. 

We start this discussion with some reluctance. This stems from our belief that IT organizations 
should comply with industry and government standards, ANSI, FIPS, and ISO standards all 
state that the use ofYYis permitted only when the date references the current century, SQL 
also defines date to include the century. For these reasons we have continued to insist that the 
only correct definition of year is CCYY, 

Standards are created to minimize decision making. Where the CCYY standard is not 
followed, we see the amount of time required to complete the millennium update multiply. 
Costs often rise to $1,50, and even $3, 00, per gross line of code. 

Because it is necessary to review and determine how to handle every date calculation and 
comparison, we have found no significant savings in trying to retain 6-digit dates. Work- 
arounds cause production cycle times to increase. This requires additional work in 
performance tuning, and in acquiring new processor resources. 

The number of storage options is infinite. We are providing here only a glimpse at the most 
common ones. The chaos that is caused in trying to keep track of what logic was used, 
documenting what the values mean, working around mistakes, and training new staff in all 
these rules costs the organization more in the long run. The variety should itself be a warning 
to managers to adopt a standard, and enforce it Since most vendors are not following the 
standards in their response, the problem of passing date information will be complicated 
enough. 



After all, this Millennium problem... is about time! 
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Richard Bergeon 

Vice President, Technical Services 



Three Approaches that are NOT Recommended 

The following approaches to dealing with dates are not recommended. Imagine, if you can an 
organization in which dates are presented in all the ways mentioned here. This could be your 
organization. Every format and technique that follows (and more) is being used by vendors as 
well as internal staff in order to "minimize" the amount of work involved in the update 



Single Digit Century Values 

There are situations where space considerations and computational time requirements prohibit 
full century storage. In those situations, some turn to several single digit century options A 
common solution is to store me century as a single digit logic flag. 

This is the technique used by IBM's MVS operating system date. Old releases of MVS CICS 
used a format OCYYMMDD. This, and CYYMMDD, are the most common rule used when 

SS^fSSWSS^ 1 n *?* ^ ^ S 4 2 3116 CICS (EIBDATE) return values in the 
form of OCYYDDD. In all these situations, C = "0" for "19" and "1" equals "20". But even 

" 1 "IsuTed foSo^too^ 2039 °° "°" * preceded ±e year "* 1 940 throu 8 h 1 999 311(1 

One of our clients began to use a one digit code for century: "0" = 1800 "1" = 1900 and "2" = 
?u 0( ] 0 i • ^^rvanation we have seen is CYYMMDDS which uses signed values. The rule is 
that 1900 has the value of 0, 1 or +1 represents 2000, and -1 represents 1800. No doubt there 
are applications which use other numbers and even character values. Typical storage formats 
tor single digit century are: 



Field Description 


Format 


Field Length (1) 


CYYMMDD 


BINARY 


2 


CYYMMDDS 


PACKED SIGNED 


4 


MMDDCYYS 


PACKED SIGNED 


4 


CYYDDD 


CHARACTER 


6 


MM/DD/CYY 


CHARACTER 


9 


CYY/MM/DD 


CHARACTER 


9 



(1) Field Lengths are gived for IBM mainframes. 
Other machines may have different lengths. 

The use of the single-digit century does not save any update work, in fact, its adds to it since 
fields C mUSt mStalled t0 inter P ret I** 5 code ^ P lace ^ e century in the output 
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Displaced Dates 

Another technique we have seen used is the "displaced date". The year value stored is the 
difference calculated by subtracting the year from 100. The year 1995 is stored as the value 
"5". In 2005 the value stored will be "-5". 

Some organizations use "9's compliment" - storing the difference the year subtracted from 99 
An example, 95 subtract from 99 gives a value of 05. In 2005, 05 is subtracted from 99 giving 
94. These techniques require the addition of an arithmetic step every place where the date is 
validated, stored, retrieved and displayed. Sorts can be tricky. The 9's compliment for the dates 
98 through 02 are 02, 01 , 99, 98, and 97. 

One client adds 30 to the year, truncates the value to two positions, and then compares the 
value to 30. If the year is "95", the value is 25. Any value less than 30 is assigned a century 
value of 1900. If the year is "00" the calculated value becomes 30. The century is 2000. This 
arithmetic process is obviously associated with a logic process. It works a little better for sorts 
Use of it becomes difficult if the field contains a date less than "70". It would necessary to use 
an increment of "40". Sometimes several increment values are used in the same program. 



Logic-base Century Determination 

Some organizations try desperately to hold on to their 6-digit date standard. Here are two 
examples of what is done to work around two-digit years. The first, "windowing", is only 
recommended as temporary measure. 

In windowing, the two digit years are left alone in the files. A base year is selected (e.g., "50") 
where every year starting with (or, in some cases, greater than) "50" through "99" is treated as 
a 1900 date, and any year less than (or equal to) "50" is treated as 2000. 

Sorts require an exit, and different date fields may require a different frame. Again, every 
place where dates are used in calculations, comparisons or displays, it is necessary to add 
additional logic. The biggest problem with using windowing is that it will allow all processes 
to continue to work... even while it produces incorrect results. 

There is a logical way of determining the century that always works correctly. It is often 
possible to derive a logical answer about what century it is based on the contents of another 
field in the database. Here are two examples: 

1 . Calculation of current age (current year minus birth year) gives an answer of "09". This 
could mean 9 or 109 years of age. If a policy charge is high, then one can logically 
assume that the age is 109. A "relationship" indicator says the person is a "child", then 
the age is 9. 

2. Calculation of mortgage expiration century can be determined by looking at the 
acquisition date for which the common routine has fixed the century - if the acquisition 
year is 1994, then the mortgage expiration date must be later (i.e., 44 must be 2044). 



Lilian Dates 



On October 15, 1582 the Gregorian Calendar was adopted. Its designer was Luigi Lilio - thus 
the origin of "Lilian". A Lilian clock is a counter incremented by the system at set intervals - 



4 r 
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as'Se zra»d!S' A Subr0Utine calculates date and time from the counter using a base date 

While some product (e.g. IBM's LE/370) use the Gregorian origin date as the base date it is 
not a standard. Use Lilian dates with caution. u*«,his 

1 . Aligning Lilian clocks across different products can be tricky. 

S^EF! 011 b ^ e dates 316 Jan - l > ° 000 ' Jan - ! > 1900 > Jar »- 1, 1964, and Jan. 4, 1980 The IBM 

¥Fl ^i /nff,^!/ 1 ^ 00 ' DB/2 ' S is 1/1/1800 ' C0B0L reportedly is 1/1/1601, UNIX's 
dock is 01/01/1970, SAS starts at 01/01/1980, and VMS uses the Smithsonian date - 
.November 17, 1858. 

2. Know the limits of the system clock. 

F™?n Un £ r ^ Size determines toe limi * of the calendar - Macintosh's runs out on February 
o, ^U4U. 1 he C (computer language) calendar runs until January 1 8, 2038. 



Satisfying the Standard 

Meeting the standard may be possible without expanding data storage. Some organizations 
have saved space by adopting standard storage formats, eliminating storage formats that take 
more space. 

Field Descr iPtion^ Format Field Length (1) 

YYYYMMDD PACKED UNSIGNED (2) 4 

YYYYDDDS PACKED SIGNED 4 

0YYYYMMDDS PACKED SIGNED 5 

YYYYDDD CHARACTER 7 

YYYYMMDD CHARACTER 8 

Some of our clients have elected to minimize the impact (on data entry procedures, report and 
screen formats, and century loading procedures) by retaining old formats and extending the 
cakulations Wmg formats meet standards, but are awkward to use in comparisons or 

f_f!:™f SCri ? ti ? n Format Field Length (1) ' 

MMDDYYYY PACKED UNSIGNED (2) 4 

0MMDDYYYYS PACKED SIGNED 5 

MMDDYYYY CHARACTER 8 

(1) Field lengths are given for IBM mainframes. Other machines 
may have different word lengths. 

(2) Packed unsigned number are not available under standard COBOL 

User requires a call to a subroutine available in several date packages. 

Data Dimensions' archives contain over forty different formats that organizations use to 
store dates. We have only mentioned a few here. 
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Our message: If you want to simplify the work of the millennium update, stick with the 
standards. Trying to save time by adopting an alternative measure only costs more in the lone 
run There is no significant reduction in either analysis or testing time, and the dollars saved 
in storage are offset by the costs of additional processing time. 
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Date Storage Strategies 

We are often confronted with questions about storage of date information. Many believe it is 
possible to reduce the millennium update work effort or minimize storage costs by working 
around the century. In this Journal we will explore some of the alternatives that we have 
employed and encountered. 

We start this discussion with some reluctance. This stems from our belief that IT organizations 
should comply with industry and government standards. ANSI, FIPS, and ISO standards all 
state that the use of YY is permitted only when the date references the current century. SQL 
also defines date to include the century. For these reasons we have continued to insist that the 
only correct definition of year is CCYY. 

Standards are created to minimize decision making. Where the CCYY standard is not followed, 
we see the amount of time required to complete the millennium update multiply. Costs often 
rise to $1.50, and even $3.00, per gross line of code. 

Because it is necessary to review and determine how to handle every date calculation and 
comparison, we have found no significant savings in trying to retain 6-digit dates. Work- 
arounds cause production cycle times to increase. This requires additional work in 
performance tuning, and in acquiring new processor resources. 

The number of storage options is infinite. We are providing here only a glimpse at the most 
common ones. The chaos that is caused in trying to keep track of what logic was used, 
documenting what the values mean, working around mistakes, and training new staff in all 
these rules costs the organization more in the long run. The variety should itself be a warning 
to managers to adopt a standard, and enforce it. Since most vendors are not following the 
standards in their response, the problem of passing date information will be complicated 
enough. 

After all, this Millennium problem... is about time! 
Richard Bergeon 

Vice President, Technical Services 



Three Approaches thakare NOT Recommended 

are not recommended. Imagine, if you can, an 
organization in which dates are presented in all the ways mentioned here. This could be your 
organization. Every format and technique that follows (and more) is being used by vendors as 
well as internal staff in order to "minimize" the amount of work involved in the update 



Single Digit Century Values 

There are situations where space considerations and computational time requirements prohibit 
full century storage. In those situations, some turn to several single digit century options A 
common solution is to store the century as a single digit logic flag. 

This is the technique used by IBM's MVS operating system date. Old releases of MVS CICS 
used a format OCYYMMDD. This, and CYYMMDD, are the most common rule used when 

TiftSS;? 816 digit f ° r year MVS 4 2 md CICS (EIBDATE) return values in the form 
of OCYYDDD. In all these situations, C = "0" for "19" and "1" equals "20". But even IBM is 
not consistent. In the AS/400 world, "0" is preceded the year in 1940 through 1999 and "1" is 
used for 2000 through 2039. 

One of our clients began to use a one digit code for century: "0" = 1800, "1" = 1900 and "2" = 
2000. Another variation we have seen is CYYMMDDS which uses signed values The rule is 
that 1900 has the value of 0, 1 or +1 represents 2000, and -1 represents 1800. No doubt there 
are applications which use other numbers and even character values. Typical storage formats for 
single digit century are: 



Field Description 


Format 


Field Length (1) 


CYYMMDD 


BINARY 


2 


CYYMMDDS 


PACKED SIGNED 


4 


MMDDCYYS 


PACKED SIGNED 


4 


CYYDDD 


CHARACTER 


6 


MM/DD/CYY 


CHARACTER 


9 


CYY/MM/DD 


CHARACTER 


9 



(1) Field Lengths are gived for IBM mainframes. 
Other machines may have different lengths. 

The use of the single-digit century does not save any update work, in fact, its adds to it since 
some logic must be installed to interpret the code and place the full century in the output fields. 



Displaced Dates 

Another technique we have seen used is the "displaced date". The year value stored is the 
difference calculated by subtracting the year from 100. The year 1995 is stored as the value "5" 
In 2005 the value stored will be "-5". 

Some organizations use "9's compliment" - storing the difference the year subtracted from 99. 
An example, 95 subtract from 99 gives a value of 05. In 2005, 05 is subtracted from 99 giving 
94. These techniques require the addition of an arithmetic step every place where the date is 
validated, stored, retrieved and displayed. Sorts can be tricky. The 9's compliment for the dates 
98 through 02 are 02, 01, 99, 98, and 97. 

One client adds 30 to the year, truncates the value to two positions, and then compares the value 
to 30. If the year is "95", the value is 25. Any value less than 30 is assigned a century value of 
1900, If the year is "00" the calculated value becomes 30. The century is 2000. This arithmetic 
process is obviously associated with a logic process. It works a little better for sorts. Use of it 
becomes difficult if the field contains a date less than "70". It would necessary to use an 
increment of "40". Sometimes several increment values are used in the same program. 



Logic-base Century Determination 

Some organizations try desperately to hold on to their 6-digit date standard. Here are two 
examples of what is done to work around two-digit years. The first, "windowing", is only 
recommended as temporary measure. 

In windowing, the two digit years are left alone in the files. A base year is selected (e.g., "50") 
where every year starting with (or, in some cases, greater than) "50" through "99" is treated as a 
1900 date, and any year less than (or equal to) "50" is treated as 2000. 

Sorts require an exit, and different date fields may require a different frame. Again, every place 
where dates are used in calculations, comparisons or displays, it is necessary to add additional 
logic. The biggest problem with using windowing is that it will allow all processes to continue 
to work... even while it produces incorrect results. 

There is a logical way of determining the century that always works correctly. It is often 
possible to derive a logical answer about what century it is based on the contents of another 
field in the database. Here are two examples: 

1 . Calculation of current age (current year minus birth year) gives an answer of "09". This 
could mean 9 or 109 years of age. If a policy charge is high, then one can logically 
assume that the age is 109. A "relationship" indicator says the person is a "child", then 
the age is 9. 

2. Calculation of mortgage expiration century can be determined by looking at the 
acquisition date for which the common routine has fixed the century - if the acquisition 
year is 1994, then the mortgage expiration date must be later (i.e., 44 must be 2044). 



MMDDYYYY PACKED UNSIGNED (2) 4 

OMMDDYYYYS PACKED SIGNED 5 

MMDDYYYY CHARACTER 8 



(1) Field lengths are given for IBM mainframes. Other machines 
may have different word lengths. 

(2) Packed unsigned number are not available under standard COBOL. 

User requires a call to a subroutine available in several date packages. 

Data Dimensions 9 archives contain over forty different formats that organizations use to 
store dates. We have only mentioned a few here. 

Our message: If you want to simplify the work of the millennium update, stick with the 
standards. Trying to save time by adopting an alternative measure only costs more in the long 
run. There is no significant reduction in either analysis or testing time, and the dollars saved 
in storage are offset by the costs of additional processing time. 
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Intelligent Report Maintenance 
Using Dialogue Manager " 



Best Copy Available" 

Goty Browe demonstrates 
o date utitityht stop fifies 
maintenance of FOCEXEC* 
ttwt contain specific dote 
periods. 




HoticB Thfe Material Msy fa Pratacteff 
By Copyright Lsw (Tide 17 B.S. Code) 



by Gary Browe 



re your reports ready for the year 2000? Do they automatically 
change when the accounting period changes? Are they flexible 
and easily maintained? If not, then your FOCEXECs could ben- 
efit from the FOCUS date utility program discussed In this article. 

Calculating the current accounting period is often necessary. For example, your cus- 
tomer needs a second quarter report, and it is currently the third quarter This is a 
common situation in financial reporting, as reports must change to fulfill date 
requirements. To make accounting reports more automatic, create a FOCEXEC 
called DATES that contains the Dialogue Manager commands shown in Figure 1. 



Figure 1 - DATES FOCEXEC 



•* Author: Gary C. Browe . Ford Motor Cor^'FlTe: DATES 
-* Date: 12/89 : -Release: 5-5.2 



.+ 
.* 
.* 
.+ 

.w 

,+ 



.* 
.* 
.* 



System: Any 

MasterCs): none. . . .Vr-V^. . f 

Function: Date' calculatiohs,*for FOti/Ssfiles'i 

"Remarks: All &variable dates are iK^te'-fom^mirrV,' using a 
4- digit year. This was dbne^o avcrifl additional 
program logic to calculate dates between the 20th and 
21st century. 



Abbreviations: REF - reference 

• . CUR - current 
ACT - accounting 



MTH - month 
YR - year 
PRE - previous 



BEG - beginning 
END - ending 



. * 
. * 

.* 



.* 



The Avariable REFOATE is set outside this FOCEXEC to change the 

reference date to a date other than the current date. This is done 

to fake FOCUS into -thinking- that It is some date other than today. 

This is useful to "recreate 1 ' accounting reports for previous accounting 

periods or preview future reports without changing program logic. 

The reference date is typed in MMODYY format and must refer to a date 

from 01/01/1950 to 12/31/2049 for this focexec to work correctly. 
******************** ********* T *x*****************^ 



IF &REF0ATE. EXIST EQ 0 GOTO SETT0DAY ELSE GOTO SETOTHER; 
SETT00AY 



(continued) 
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(Figure 



I 



-SET ABASEDATE - AMDY; 
■GOTO CONTINUE 
-SETOTHER 

-'StSB? 1 * 7 * " &REF0ATE '- 

"J^^rsnsi * — 



-SET AHEAOINGDT 
•SET AMTH 
-SET- ACURMTH 
-SET AYR 
-SET AYR 



-SET ACURYR 



- EDIT (ABASEDATE, '99/99/99'). 
.:Zg}J. "DEBATE. •99$SM ? ); # 

^ I Iv^^ SE0ATE ' ■««99')5-'" 

" ELSE 201 AYR-™ &YR LE " THEk "**f* YR 

- AYR; 1 ' 




- ' "'• "-J -C- IMf 2 F mH E07 . pR I- THEN I * vi: 

-SET ACURQTRNAMB-v-r If 4CURQTREO 1 THEM '"->«ST^ ' - • 

" ELSE IF 5CURQTR EQ 2 THEN 'SECOND • 

• " • • f f L |f " "URQTR EQ f THEN ™ ? 

ELSE FOURTH ' : 

Accounting. Period: Determine the accounting period which is the 



-SET AACTQTR 
-SET APREOTR 
•SET AACTQTRNAME 



•SET &PREQTRNAME 
-SET AMTH 
-SET AMTH 
-SET AACTMTH 
•SET APREMTH 
-SET &YR 

•SET AACTYR 
•SET ABEGACTMTH 
•SET AMIDACTMTH 
-SET ABEGPREMTH 
•SET AHIDPREMTH 
•SET ABEGACTQTR 



SET ABEGPREOTR 
SET AENDACTOTR 



SET AENOPREOTft 



- aIctqtr?™ " 1 EQ 0 THEN 4 £LSC * CURQTR * ^ 

- IF AACTQTR EO 1 THEN 'FIRST' 

nff J£ IS ? THEN "SECOND' 

ELSE ^oSrS?T R EQ 3 ™ EN '™ IRD ' • 

- AACTQTRNAME; 

- IF AMTH - 1 EO 0 THEN 12 ELSE AMTH - l- 
I {JJJTH LT 10 THEN 0 | AMTH ELSE AMTH ; ' 

- AACTMTH; 

: Jf R f HTH E0 12 THEN *™ " 1 ELSE AYR; 

- *MTH | 01 | AACTYR; 

- AMTH | 15 | AACTYR; 

- ABEGACTMTH; 

- AMIDACTMTH; 

- IF AACTQTR EO 1 THEN 0101 I AACTYR 

ELSE IF AACTOTR EO 2 THEN 0401 I AACTYR 
ELSE IF AACTOTR EO 3 THEN 0701 AACTYR 
ELSE 0901 | AACTYR; 1 &ACTTR 

= ABEGACTQTR; 

- IF AACTOTR EO 1 THEN 0331 | AACTYR 

ELSE IF AACTQTR EQ 2 THEN 0630 I AACTYR 

ihll &} A T fi&ffi 3 TH£N 0930 • » AC ™ 

- AENOACTQTR: _ 

(continued) 
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(Figure 1 - DATES FOCEXEC continued) 



SET A BEG ACT YR 
-SET &MI0ACTYR 
-SET &ENOACTYR 
-SET &JAN 
-SET &FEB 
-SET &MAR 
•SET &APR 
-SET &MAY 
-SET 

•SET WUL 
-SET *AUG 
•SET &SEP 
SET &0CT 
SET 4N0V 
SET &DEC 



- 0101 

- 0630 

- 1231 

- 0101 

- 0201 

- 0301 

- 0401 

- 0501 

- 0601 

- 0701 

- 0801 

- 0901 

- 1001 

- 1101 

- 1201 



AACTYR; 
&ACTYR; 
&ACTYR: 
AACTYR; 
UCTYR; 
AACTYR; 



* Previous year: is. the 



I AACTYR; 
I AACTYR; 
I AACTYR; 
I &ACTYR; 
| &ACTYR; 
I &ACTY.R; 
I &ACTYR; 
I 4ACTYR; 
AACTYR; 




accounting year 



''-set spreyr - um?. . \ ^ 

""""SET &BEGPREYR ;■■ — 0101 | '&PREYR- 7 . 

-SET &MIDPREYR - 0630 I JiPREYR* . • • : 

.^ tM *- ^- 2M fSS H *° ™EM 0.*1«HTH ELSE 4HTH: : ' 1 

"f^SSSS!™* - W ™i *£y*^ n 4YR .," l : EtSE 4YR: v- 

"Iet Iyr" I "?£ fIffS £1° '■TMBl'WgrS I ELS lUTO)?' 

-S fSuRMTHAGO I JtSTV", ?YR l ? ,a * Y * " 1 ELSE AYRj 

-SET AMTH " \l 4 5 TH " 1 EO 0 THEN 12 ELSE &NTH - 1- 

-SET SYR " l£ fUJ" t T 10 THEN 0 | &MTH ELSE 4MTH- 

i^l&s» : SWTif 0 , Sr?* m " 1 ELSE 4V * ; 

-SET AMTH tr . * * ^'********************** 

-IfT *mTh " K &MTH - 1 EO 0 THEN 12 ELSE &MTH - 1- 

-SET AYR -"IE t T 10 THEN 0 I &M ™ ELSE ThTHj 

-SSJxmww. . --; IStSToi", VW™ * vr " 1 ELS£ * YR: 



I 
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«~ - - or a 

what ?lue$ they „ ^ 

ECKO=ALL option (EX TISlS ECH^^ " ^ 2 *« 
Figure 3. can then be uJta^SS^' '2S* 1 shown in 

men*, column h^inToZ^^T^' DEFINE ° r C °MPUTE state- 

wumgs, or any other valid statements used in FOCUS. 

figure 2 - TESTDATE FOCEXEC 

Author: Gary C. Browe ^ 7* *****"****»******«»««».»*.* 

■« Oate: n/89 ' d Hotor Co - TESTDATE 

-* System: Any Release: 5.5.Z 

« r aster(s): none 

i;""^ 

-* R£F0At£ «ust be typed fn : *4lMfmvv^§^^iv W*?*v-*'- \c c 



fSfP 



"fJfJCURMTH *8E6CUtoii* 

KJ! " iMiocuwnc-fc 
H:a8nuMNc *SS8& 

PE'ACTQTR 

f§..?«0TR - «PREQ« 

- ' WCTOTIWAME-^;, 
-.. .aPREQTWlAME " 

&ACTMTH , 
• SPREMTM "vaG* ' 



./^JSfACTOTRKAM£ 

••' 'TYPE ACTMTH 
: -JYPE PREoth 

'TYPE ACTYR 
. -TYPE BE6ACTHTH 
-TYPE MIOACTNTH 
-TYfl BE6PREHTH 
•TJPE NIDPREMTH 
"TYPE 8E6ACTQTR 
'TYPE BEGPRfOTft 

*JJ£f ENDACTOTR 
"TYPE ENDPREOTR 
-TYPE BEGACTYR 
-JYPE HIDACTYR 
-TYPE EMDACTYR 
-TYPE JAN 
-TYPE FEB 
•TYPE NAR 
•TYPE APR 
-TYPE NAY 
TYPE JUN 

•TYPE JUL 

•TYPE AU6 

-TYPE SEP 

-TYPE OCT 

-TYPE NOV 

■TYPE DEC 



- iCURQTRNAMe^f^ 

- IPREQTR • w 55r r " * 



&ACTYR 
&BEGACTMTN 
AMIOACTMTH 
&6E6PREHTH 
*MI0PR£MTH 
ABE6ACTQTR 
&BE$PRCQTR 
*EMOACTQTR 
&ENOPREQTR 
ABEGACTYR 
AMIDACTYR 
&ENDACTYR 
WAN 
4FEB 
ftMAR 
4APR 
4MAY 
4JUN 
AJUL 
AAUG 
&SEP 
40CT 
&N0V 
4DEC 




b * 




' * 



I 



(continued) 
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(H«nre 2 - TESTOATE FOCEXEC continued) 



-TYPE PREYR 
'TYPE BEGPREYR 
-TYPE MIDPREYR 
•TYPE ENDPREYR 
-TYPE TWOMTHAGO 
-TYPE THREEMTHAGO 
-TYPE FOURMTHAGO 
-TYPE FJVEMTHAGO 
-TYPE SIXMTHASO 
•EXIT 



APREYR 

ABEGPREYR 
AMIDPREYR 
&ENDPREYR 

&TWOMTHAGO 
ATHREEMTHAfiO 
&FOURMTHAG0 
&FIVEMTHAGO 

&SIXMTHAGO 



Rgnre 3 Resolved Variables from TESTDATE 



HEAOINGOT 
CURMTH 
CURYR 

: BEGCURMTH 
BEGCURYR 
MIOCURYR 

--ENDCURYR.- 
CURQTR 

CURQTRfiAME - 
ACTOTR 

PREQTR 
. ACTQTRMAME 
. PJtEQTRNAME - 

ACTMTH 

PREMTH 
. .ACTYR 

:;;b£gactmth 

j^iMI OACTMTH 

;>;B£gpremth - 

rtlOPREMTH: -7; v= 

tjtuoACTffira; 

u .ENDPtfEQT* 
BEGACTYR-. ■: 

; *ioacty*" 

"ENDACTYR 
-JAN ■ 



FOCEXEC 



■ FEB. ' 
WAR . 
APR 
. MAY 
J UN 
JUL 
AUG 
SEP 
OCT 
NOV 
DEC 
PREYR 

BE6PREYR 
MIDPREYR 

ENDPREYA 

TWOMTHAGO 

THREEMTHAGO 

FOURMTHAGO 

FIVEMTHAGO 

5IXMTHAG0 



01/01/90 
01 

1990 

01011990 
•01011990 
• 06301990 
; 12311990 
. 1 
FIRST 

4 

FOURTH ' 

. f ourth 

12 ' 
12 
.1989 • 
12011989 
12151989 
12011989 
' 12151989 V 
09011909 
.v. 09011989 
- 12311989 
12311989 

- ^01011989 
r 06301989 

- • • 12311989 

- 01011989 
T 02011989 
"V 03011989 

- 04011989 
--■.t)5011989 

- 05011989 

- 07011989 
08011989 

" 09011989 

- 10011989 
i- 11011989 

- 12011989 

■ 1988 
" 01011988 

■ 06301988 
' 12311988 
' 11011989 
' 10011989 
' 09011989 
' 08011989 

07011989 




V*' • ■ 



I 
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The DATES procedure is 
called into the report 
request via a -INCLUDE 
statement. The resolved 
^variables are then 
available for use (see 
Figure 4). For more 
complex reports ox spe- 
cial conditions, other 
Dialogue Manager 
^variables can be 
defined using the 
DATES procedure as a 
base program (see Figure 
5). 



When using this tech- 
nique, bear in mind 
that a limited number 
of Dialogue Manager 
variables are available. 
This technique makes 
extensive use of these 
variables; before using 
it, ensure that your 
existing application is 
not already at or near 
the limit. 



■ • • -.. . . 

Hgure 4 - Sample FOCEXEC 



In summary, using this 
Dialogue Manager 
DATES procedure 
throughout your 
database management 
system can reduce or 
eliminate FOCEXEC 
maintenance during 
major date changes. It 
will also have the added 
benefit of making your 
FOCEXECs more uni- 
form, thus making them 
easier to interpret and 
maintain. <* 



•* System; Any Release; 5.5.2 

-* Master(s): EMPLOYEE 

•* £mK?? ! Thf m S,!^^? a 5 ple f?? exec "strifl the DATES include file 
Remarks: The output from this focexec was based on the EMPLOYEE 
database supplied with PC/FOCUS release 3 l mrLUTtE 



-INCLUDE- DATES * 

- * 

-* 

5ffJ« FILE EMPLOYEE - 
XPAYJATE/MDYY - PAY_0ATE; 



""*************** 44**4 *****4 4 



.1 i 

*t| 

-J I 

i\ 



• .W- '^^^^^^t^l^^iJ^^ database. 
: :**8LE 'FILE EMPLOYEE 



i: HEAfiUIG GEKTER r . '. "~ 
r *WEADMGDT" • • •■£>%.-. . . 

• ^SK^F.^ SAM^ INCREASE- 
'S MgTMT H /• &ACTYR </l* - 

. XPAY^OATE AS 'PAYJOATE"' " 

J??SS AS 'GROSSiPA* 

Sf-'MSsW 1 * AS 'LASTjUAME 
B^FIRSOAME: AS -«*ST. NAME 

OR" TABLE SUB FOOT-' 
<45 : • ■. r. ' ' 

^TOTAL. 6R0SS <42 <T0T. GROSS - 
-EXIT 



Output 



08/01/82 

MONTHLY REPORT OF SALARY INCREASE 
FOR 07 / 1982 



LAST 

MIL 



BLACKWOOD 

CROSS 

IRVING 

JONES 

MCKNIGHT 

ROMANS 

SMITH 

STEVENS 

TOTAL GROSS 



FIRST 
NAMF 



ROSEMARIE 

BARBARA 

JOAN 

DIANE 

ROGER 

ANTHONY 

MARY 

ALFREO 



PAY 

BAIL 



07/30/1982 
07/30/1982 
07/30/1982 
07/30/1982 
07/30/I9B2 
07/30/19B2 
07/30/1982 
07/30/1982 



GROSS 
PAY 



$1,815.00 
$2,255.00 
$2,238.50 
$1,540.00 
$1,342.00 
$1,760.00 
$1,100.00 
$916.67 

$12,967.17 



I 
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Figure 5 - Sample FOCEXEC 



GaryBrowc is a 
programmer analyst at 
Ford Motor Company, 
Parts and Service 
Division and president 
of the Detroit-Toledo 
FOCUS Users Group, 
TED McFUSE. His 
experience includes 
application design, end* 
user consulting, and 
giving FOCUS 
application 
presentations to FUSE 
groups. He has been 
using FOCUS since 
1983. 
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'I ft!f5II 0r: i??K C ' 8rowe • ford Motor c °* Nie: «€URE5 
-* Date: 11/69 Release* 5 5? 

•* System: Any Release, 5,5.2 

-* Master(s): EMPLOYEE 

•» Function: Example focexec using dates file with additional dates 

calculated. 

-* Remarks: The output from this focexec was based on the EMPLOYEE 
l database supplied with PC/ FOCUS release 3.1 

-SET &REF0ATE - 080183 ; 

-include dates 

-set a2yrsag0 - &preyr - 1; 

-set &beg2yrsag0 - 0101 i s2yrsag0: 

-set 4end2yrsag0 - 1231 | 42yrsag0; 

-* Define XPAYJMTE as a FOCUS date. 

DEFINE FILE EMPLOYEE 
XPAYJATE/MffY* - PAY_DATE; 

2YRSAGOPAY/D10.2H - IF XPAY.DATE GE *iBE62YRSAfiO* 

^ . ' 2flff** *» xpAYjATrrtE ««n^tw the* gross eSbk^ , • 

TABLE HIE EMPLOYEE ^ V^'--- ^ 

HEADING CENTER,^ . " 
•&HEADlMGDr ^ - ■ " * 

"EMPLOYEE PAY HISTORY REPORT </l* . 

-SUM - ;»*■ . r v .. 



> - 



"SUH - ...u^is 5r , w . ( ^.-. < i. .. tAjf^ti^M. ... -^EiL*"- 

2YRSA60M;:AS^i2YRSA6tf, CROSS -S^' 

■.BY, ,tAST|^^^^- 



ICTYR. GROSS, 
■^IpAST.NANE " 



-4 




Output 



:08/»l/B3 -; 
EMPLOYEE PAY-'HISTORY REPORT 




LAST 

HAM£ 

BLACKWOOD 

CROSS 

IRVING 

JONES 

MCKNIGHT 

ROMANS 

SMITH 

STEVENS 

TOTAL 



FIRST 
NAME 

ROSEMARIE 

BARBARA 

JOAN 

DIANE 

ROGER 

ANTHONY 

MARY 

ALFRED 



1981 


1982 


1983 


GROSS 


GROSS 


GROSS 


EARNINGS 


EARMMfiS 


EARNINGS 


$.00 


$1,815.00 


$.00 


$.00 


$2,255.00 


$.00 


$.00 


$2,238.50 


$.00 


$.00 


$1,540.00 


$.00 


$.00 


$1,342.00 


S.OO 


$.00 


$1,760.00 


$.00 


$.00 


$1,100,00 


S.OO 


$.00 


$916.67 


$.00 


$.00 


$12,967.17 


$.00 
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Category 



Informat 

$HEXw. 
$OCTALw. 
$PHEXw. 
$VARYINGw. 
$w. 



Description 

converts hexadecimal data to character data, 
converts octal data to character data, 
converts packed hexadecimal data to character data, 
reads varying-length character values, 
reads standard character data. 



Date and time informats 



DATEw. 

DATETIMEw. 

DDMMYYw. 

JULIANw. 

MMDDYYw. 

MONYYw. 

MSECw. 

NENGOw. 

PDTIMEw. 

RMFDURw. 

RMFSTAMPw. 

SMFSTAMPw. 

TIMEw. 

TODSTAMPw. 

TUw. 

YYMMDDw. 
YYQw. 



reads data values (ddmmmyy). 

reads date and time values (ddmmmyy hh:mm:ss.ss). 

reads day-month-year (ddmmyy). 

reads Julian dates (yyddd or yyyyddd). 

reads month-day-year (mmddyy). 

reads month and year (mmmyy). 

reads TIME MIC values. 

reads Japanese dates values (r.yymmdd). 

reads packed decimal time of SMF and RMF records. 

reads the duration of RMF measurement intervals in RMF 
records. 

reads time and date fields of RMF records, 
reads time-date values of SMF records, 
reads hours, minutes, and seconds (hhrmm:ss.ss). 
reads 8-byte time-of-day stamp, 
reads timer units. 

reads year, month, and day (yymmdd). 
reads quarters of the year. 



Column binary 


$CBw. 
CBw.d 
PUNCH.d 
ROWw.d 


reads standard character data from column-binary files, 
reads standard numeric values from column-binary files, 
reads whether a row of column-binary data is punched, 
reads a column-binary field down a card column. 


Numeric 


BINARYw.d 


converts positive binary values to integers. 




BITSw.d 


extracts bits. 




BZw.d 


converts blanks to Os. 




COMMAw.d 


removes embedded commas, decimal points, and parentheses. 



(continued) 
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Table 3.10 (continued) 



Category 



Format 



Description 



Date and Time Formats 



DATEw. 

DATETIMEw.d 

DAYw. 

DDMMYYw. 

DOWNAMEw. 

HHMMw.d 

HOURw.d 

JULDAYw. 

JULIANw. 

MMDDYYw. 

MMSSw.d 

MMYYxw. 

MONNAMEw. 

MONTHw. 

MONYYw. 

NENGOw. 

QTRw. 

QTRRw. 

TIMEw.d 

TODw. 

WEEKDATEw. 
WEEKDATXw. 
WEEKDAYw. 
WORDDATEw. 

WORDDATXw. 

YEARw. 
YYMMxw. 

YYMMDDw. 

YYMONw. 

YYQxw. 

YYQRxw. 



writes data values (ddmmmyy). 

writes datetime values (ddmmmyy:hh:mm:ss.ss). 

writes day of month. 

writes date values (ddmmyy). 

writes name of day of the week. 

writes hours and minutes. 

writes hours and decimal fractions of hours. 

writes Julian day of the year. 

writes Julian dates (yyddd or yyyyddd). 

writes month-day-year (mmddyy). 

writes minutes and seconds. 

writes month and year separated by a character. (MMYYxw. is a 
set of formats.) 

writes name of month. 

writes month of year. 

writes month and year (mmmyy). 

writes Japanese dates (r,yymmddfy. 

writes quarter of year. 

writes quarter of year in Roman numerals. 

writes hours, minutes, and seconds. 

writes the time portion of datetime values. 

writes day of week and date (day-of-week, month-name dd yy). 

writes day of week and date (day-of-weefc, dd month-name yy). 

writes day of week. 

writes date with name of month, day, and year (month-name dd, 

yyyyY 

writes date with day, name of month, and year (dd month-name 

yyyy)- 

writes year part of date value. 

writes year and month, separated by a character. (YYMMxw. is a 
set of formats.) 

writes year-month-day (yymmdd). 
writes year and month abbreviation. 

writes year and quarter separated by a character. (YYQxw. is a set 
of formats.) 

writes year and quarter in Roman numerals separated by a 
character. (YYQRxw. is a set of formats.) 



S 

? 
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contain characters that represent special missing values that allow you to 
distinguish between types of missing values. 

For more information on reading numeric data, including details about 
missing values in input data and how the SAS System handles invalid 
data, see Reading Raw Data" in Chapter 2. 

Representing Numeric Data in SAS Programs 

Numeric data can be represented in SAS programs as constants in 
standard numeric, scientific, and hexadecimal notation. Ordinary numeric 
missing values are represented as single periods. Special missing values 
can be represented as a period followed by one of the characters A 
through Z or the underscore character (_). 

Bit masks can be used in bit testing to compare internal bits in a value's 
representation. 

For more information on how to represent numeric data in SAS 
programs, including the details of bit testing, see "SAS Constants" in 
Chapter 4. 

Writing Numeric Data 

The w.d format is the default format for writing numeric data. However 

7™™ e numerous other SAS formats you can use in a FORMAT, an ' 
ATTRIB, or a PUT statement for writing numeric data. 

If the value of a variable does not fit into the width of the format you 
are using, the SAS System tries to squeeze the value into the space 
available, in which case numeric formats may revert to the BESTw 
format. If it is not possible to represent the value in some fashion, the 
SAS System prints asterisks. Even if the SAS System truncates or rounds 
a value of a numeric variable during the printing routine, the complete 

^n e t,cT/ maintained and iS St0red intact ^ the ^stem. (You can use the 
r-KUBMCj- system option to control the precision of statistical 
procedures.) 

F ?u ^^oS? 11 ° n individual formats » see Chapter 14. For information 
on the PROBSIG= system option, see Chapter 16. 

Using SAS Date and Time Values 

The SAS System represents date, time, and datetime values as numbers 
using the following rules: 

□ A date is represented by the number of days between January 1 1960 
and that date. 

D A time is represented as the number of seconds between midnight and 
that time of day. 

o A datetime is represented by the number of seconds between midnight 
January 1, 1960 and that datetime. 

The SAS System has a number of informats that read date and time 
values and convert them to SAS date and time values. The SAS System 
also has a number of formats that write date and time values in a variety 
of ways. 7 

SAS dates are valid back to A.D. 1582 and ahead to A.D. 20,000 Leap 
year, century, and fourth-century adjustments are handled correctly 
However, leap seconds are ignored, and the SAS System does not adjust 
for daylight saving time. 



DATE system option 

controls printing of date and time values. When this option is enabled, 
the SAS System prints on the top of each page of output the date and 
time the SAS job started. When you are running the SAS System in 
interactive mode, the time the job started is the time you started your 
SAS session, 

CENTER system option 

controls whether output is centered. By default, the SAS System 
centers titles and procedure output on the page and on the terminal 
display. 

See Chapter 16 for more information about using the SAS system 
options discussed in this section. 

Reformatting Values 

Certain SAS statements, procedures, and options enable you to print 
values using specified formats. You can apply or change formats with the 
FORMAT and ATTRIB statements, or with the VAR window in display 
manager. The SAS formats available are described in Chapter 14, "SAS 
Formats." See Chapter 9 for complete descriptions of the FORMAT and 
ATTRIB statements and Chapter 17 for details on the VAR window. 

The FORMAT procedure enables you to design your own formats and 
informats, giving you added flexibility in displaying values. See Chapter 
18, "The FORMAT Procedure,- in the SAS Procedures Guide for more 
information. 

Printing Missing Values 

The SAS System represents ordinary missing numeric values on SAS 
output as a single period, and missing character values as a blank space. 
If you have specified special missing values for numeric variables, the 
SAS System writes the letter or the underscore. For character variables, 
the SAS System writes a series of blanks equal to the length of the 
variable. 

The MISSING = system option enables you to specify a character to 
print in place of the period for ordinary missing numeric values. See 
Chapter 16 for a discussion of the MISSING = system option. 



Changing the 
Destination of 
the Log and 
Output 



You can redirect both the SAS log and procedure output to your terminal 
display, to a printer, or to an external file. You can redirect output using 
the following methods: 

PRINTTO procedure 

routes DATA step, log, or procedure output from the system default 
destinations to the destination you choose. See Chapter 28 in the SAS 
Procedures Guide for more information. 



DACCTAB 

Accumulated depreciation 
from specified tables 



Financial 

HELP FUNCTION 



Syntax 

DACCTAB(p,v,tl, . . . ,tn) 

Description 



tl, . . • ,tn 



is numeric, the period for which the calculation is to be 
done. For noninteger p arguments, the depreciation is 
prorated between the two consecutive time periods 
preceding and following the fractional period. 

is numeric, the depreciable initial value of the asset. 

are numeric, the fractions of depreciation for each time 
period. 



The DACCTAB function returns the accumulated depreciation using 
user-specified tables, given by 



DACCTAB^ « -i 'i'L toU^H,)'"*' + 



p < 0 

0 < p < n 
p >: n • 



For a given p, only the arguments tl, . . . ,tk need to be specified with 
k=ceil(p). 

Example 

An asset has a depreciable initial value of $1000 and a five-year lifetime. 
Using a table of the annual depreciation rates of .15, .22, .21, .24, and .20 
during the first, second, third, fourth, and fifth years, respectively, the 
accumulated depreciation throughout the third year can be expressed as 

y3=DACCTAB(3,1000, .15,. 22, .21, .24,. 20); 

The value returned is 580.00. The fourth rate, .24, and the fifth rate, .20, 
can be omitted since they are not needed in the calculation. 



DATE Syntax 

Returns the current date as DATE() 
a SAS date value 

Description 

The DATE function produces the current date as a SAS date value 
representing the number of days between January 1, 1960 and the 
current date. The alias for the DATE function is TODAY. 



Date and time 
HELP FUNCTION 
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Example 

The following statements illustrate the DATE function: 
tday=date(); 

if (tday-datedue)> 15 then 
do; 

put f As of ' tday date7. 'Account f 

account •is more than 15 days overdue.'; 

end; 

See Also 

TODAY function 

"SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language." 



DATEJUL 

Converts a Julian date to 
SAS date value 

Date and time 

HELP FUNCTION 



Syntax 

DATEJUL(/u/tan-date) 

Description 

The DATEJUL function converts a Julian date to a SAS date value. 
You can use the following argument with the DATEJUL function: 



julian-date 



specifies any valid SAS numeric expression representing a 
Julian date in the form yyddd or yyyyddd, where yy or 
yyyy represents the year and ddd the day of the year. 
Two-digit year values are based on the YEARCUTOFF= 
system option. The value of ddd must be between 1 and 
365 (or 366 for a leap year). 



Examples 

The following statements return values of 10957 and 14976: 

□ start»datejul(89365); 

□ end=datejnl(2001001) ; 

See Also 

JULDATE function 

"SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language." 
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DATEPART Syntax 

Extracts the date from a DATEPART(datetime) 
SAS datetime value 

Description 

The DATEPART function returns a SAS date value corresponding to the 
date portion of a SAS datetime value. 
You can use the following argument with the DATEPART function: 

datetime specifies a SAS expression representing a SAS datetime 

value- 
Example 

The following example of the DATEPART function returns a value 
equivalent to February 1, 1989. The PUT statement writes the resulting 
value as February 1 , 1989: 

/* CONN shows when the computer session began */ 
conn= , 01feb89:8:«!5 , dt; 
servdate=datepart(conn) ; 
pat servdate worddate.; 

See Also 

DATETIME and TIMEPART functions 

"SAS Date and Time Values'* in Chapter 4, "Rules of the SAS Language." 



Syntax 

DATETIME() 

Description 

The DATETIME function returns the current date and time of day as a 
SAS datetime value. 

Example 

The following example returns a SAS value representing the number of 
seconds between January 1, 1960 and the current date: 

when=datetime( ) ; 
put when=; 

See Also 

DATE and TIME functions 

"SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language." 



Date and time 
HELP FUNCTION 



DATETIME 

Returns the current date 
and time off day 

Date and time 

HELP FUNCTION 
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DAY 

Returns the day off the 
month from a SAS date 
value 

Date and time 
HELP FUNCTION 



Syntax 

DAY(date) 

Description 

The DAY function produces an integer representing the day of the month 
from a SAS date value. Integers can range from 1 through 31. 
You can use the following argument with the DAY function: 

date specifies a SAS expression representing a SAS date value* 

Example 

The following statements assign a value of 5 to D: 

now= , 05may89 , d; 
<J=day(now); 

See Also 

MONTH and YEAR functions 

"SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language." 



DEPDB 

Declining balance 
depreciation 

Financial 

HELP FUNCTION 



Syntax 

DEPDB(p,v,y,r) 

Description 

p is numeric, the period for which the calculation is to be done. For 
noninteger p arguments, the depreciation is prorated between the 
two consecutive time periods preceding and following the fractional 
period. 

is numeric, the depreciable initial value of the asset. 

is numeric, the lifetime of the asset, with y>0. 

r is numeric, the rate of depreciation expressed as a fraction, with 
r>0. 

The DEPDB function returns the depreciation using the declining 
balance method, given by 

DEPDB(p,v,y,r) - DACCDB(p,v,y,r) - DACCDB(p - 1 ,v,y,r) . 

The p and y arguments must be expressed using the same units of time. A 
double declining balance is obtained by setting r equal to 2. 



v 
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DATEw. 

Reads date values 
iddmmmyy) 

Date and time 

Width range: 7-32 

Default width: 7 

HELP INFORMAT 



Description 

The DATEw. informat reads date values in the form ddmmmyy or 
ddmmmyyyy, where dd is an integer from 01 through 31 representing the 
day of the month, mmm is the first three letters of the month name, and 
yy or yyyy is an integer representing the year. Blanks and other special 
characters can be placed between day, month, and year values. Width 
values must allow space for blanks and special characters. 

Note: The SAS System defaults to a date in the 1900s if yy is two 
digits. Use the YEARCUTOFF= system option to override the system 
default and specify a date range of your choice. 



Example 



Data Lines 



SAS Statement 



Results 



+ 1 

1 jan1990 
01 jan 90 
1 jan 90 
1-jan-1990 



+ 2 



input day datelO. ; 



10958 
10958 
10958 
10958 



See Also 

"SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language' 

DATE function in Chapter 11, W SAS Functions" 

DATEw. format in Chapter 14, "SAS Formats'* 

YEARCUTOFF= system option in Chapter 16, "SAS System Options" 



DATETIMEw* 

Reads datetlme values 
[ddmrnmyy hh:mm:ss.ss) 

Date and time 

Width range: 13-40 

Default width: 18 

HELP INFORMAT 



Description 

The DATETIMEw. informat reads datetime values in the form ddmmmyy, 
followed by a blank or special character, and hh:mm:ss.ss. The value of hh 
ranges from 00 through 23 and the values of mm and ss range from 00 
through 59. The value of ss.ss is an optional time value representing 
seconds and decimal fractions of seconds. With the DATETIMEw. informat 
you must give a value both for the date and the time. 

Note: The SAS System defaults to a date in the 1900s if yy is two 
digits. Use the YEARCUTOFF= system option to override the system 
default and specify a date range of your choice. 



Example 



Data Lines SAS Statement Results 
+ 1 + 2 

23dec89: 10:03: 17.2 input date datetime20.; 946029797.2 
23dec1989/10:03:17.2 916029797.2 

See Also 

DATEw. and TIMEw. informats 

"SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language" 
DATETIME function in Chapter 11, "SAS Functions" 

DATEw., DATETIMEw.d, and TIMEw.d formats in Chapter 14, "SAS 
Formats" 

YEARCUTOFF = system option in Chapter 16, "SAS System Options" 



Description 

The DDMMYYw. informat reads date values in ddmmyy form, where dd, 
mm, and yy are integers representing the day, month, and year. The day, 
month, and year fields can be separated by blanks or special characters. 
However, if delimiters are used, they should be placed between all fields 
in the value. Blanks can also be placed before and after the date. 

Note: The SAS System defaults to a date in the 1900s if yy is two 
digits. Use the YEARCUTOFF = system option to override the system 
default and specify a date range of your choice. 

Example 

Data Lines SAS Statement Results 
+ <| + 2 

231090 input day ddmmyy8.; 

23/10/90 
23 10 90 

See Also 

DATEw., MMDDYYw., and YYMMDDw. informats 
"SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language" 
MDY function in Chapter 11, W SAS Functions" 

DATEw., DDMMYYw., MMDDYYw., and YYMMDDw. formats in Chapter 
14, "SAS Formats" 

YEARCUTOFF = system option in Chapter 16, "SAS System Options" 



DDMMYYw. 

Reads date values (ddmmyy) 

Date and time 
Width range: 6-32 
Default width: 6 
HELP INFORMAT 



11253 
11253 
11253 
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Ew.d 

Reads scientific notation 

Numeric 

Width range: 7-32 
Default width: 12 
HELP INFORMAT 



Description 

The Ew.d informat reads numeric values that are stored in scientific 
notation. The w value specifies the width of the field containing the 
numeric value. The d value specifies the number of digits to the right of 
the decimal point in the numeric value. The d value range is 0 through 
31. 

Comparisons 

The Ew.d informat is not used extensively because the SAS informat for 
standard numeric data, the w.d informat, can read numbers in scientific 
notation. Use the Ew.d informat to permit only scientific notation in your 
input data. 



Example 



Data Line 



SAS Statement 



Result 



+ 1 

1.257E3 



input 91 x e7.; 



1257 



HEXw. 

Converts hexadecimal 
positive binary values to 
fixed- or floating-point 
values 

Numeric 

Width range: 1-16 
Default width: 8 
HELP INFORMAT 



Description 

The HEXw. informat reads hexadecimal digits and converts them to either 
integer binary (fixed-point) or real binary (floating-point) values. The w 
value specifies the field width of the input value, and also specifies 
whether the final value is fixed-point or floating-point. 

When the w value is less than 16, the HEXw. informat converts input to 
positive integer binary values, treating all input values as positive 
(unsigned). 

When the w value is 16, the HEXw. informat converts input to real 
binary (floating-point) values, including negative values. 

Note: Different computer systems store floating-point values in 
different ways. However, the HEX16. informat reads hexadecimal 
representations of floating-point values with consistent results if the 
values are expressed in the same way your computer system stores them. 

The HEXw. informat ignores leading or trailing blanks. 



Example 



Data Line * 



SAS Statement 



Result 



+ 1 + 2 

88F 4152000000000000 



input 31 x hex3. 35 y hex16.; 



2191 5.125 



* The data line shows IBM mainframe hexadecimal data. 



IBMMf 

Reads integer binary 
(fixed-point) values 

Numeric 

Width range: 1-8 
Default width: 4 
HELP INFORMAT 



Description 

The IBw.d informat reads integer binary (fixed-point) values, including 
negative values represented in two's complement notation. If you use a d 
value, the IBw.d informat divides the number by 10 d . The d value range 
is 0 through 10. 

Note: Different computer systems store integer binary values in 
different ways. However, the IBw.d informat reads integer binary values 
with consistent results if the values are created on the same type of 
computer system you use to run the SAS System. 



Comparisons 

Ordinarily, it is not possible to key in binary data directly from a 
terminal, although many programs write data in binary. The following 
table compares integer binary notation in several programming languages: 



Language 



Integer Binary Notation 
2 Bytes 4 Bytes 



FORTRAN 
C 

PL/1 
COBOL 

IBM 370 assembler 



INTEGER*2 
short 

FIXED BIN(15) 
COMP PIC 9(4) 
H 



INTEGERS 
long 

FIXED BIN(31) 
COMP PIC 9(8) 
F 



Example 



Data Line * 



SAS Statement 



Result 



00000080 



input 91 z ib4. ; 



128 



* The data line is a hexadecimal representation of a 4-byte integer binary number. Each byte 
occupies one column of the input field. 



JULIANmt. 

Reads Julian dates (yytftftf 
or yyyyddd) 

Date and time 
Width range: 5-32 
Default width: 5 
HELP INFORMAT 



Description 

The JULIANw. informat reads Julian dates in the form yyddd or yyyyddd, 
where yy or yyyy is a two-digit or four-digit integer representing a specific 
year, and ddd is an integer from 1 through 365 (366 for a leap year), 
representing the day of the year. Julian dates consist of strings of 
contiguous numbers, which means that zeros must pad any space between 
the year and day value. The example below illustrates this point. 

Note: Julian dates containing year values before 1582 are not valid for 
conversion to Gregorian dates. 

Use the YEARCUTOFF = system option to override the system default 
and specify a date range of your choice. 
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Example 



Data Line * SAS Statement Result 
+ 1 + 2 

9 °091 input day julian8.; 11008 



* The data line corresponds to the ninety-first day of 1990, or 01APR90. 



See Also 

JULIANw. informat 

"SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language" 
DATE JUL and JULDATE functions in Chapter 11, W SAS Functions" 
JULIANw. format in Chapter 14, "SAS Formats" 
YEARCUTOFF = system option in Chapter 16, "SAS System Options" 



MMDDYYw. 

Reads date values (mmddyy) 

Date and time 
Width range: 6-32 
Default width: 6 
HELP INFORMAT 



Description 

The MMDDYYw. informat reads date values in mmddyy form, where mm, 
dd, and yy are integers representing the month, day, and year. The 
month, day, and year fields can be separated by blanks or special 
characters. However, if delimiters are used, they should be placed 
between all fields in the value. Blanks can also be placed before and after 
the date. 

Note: The SAS System defaults to a date in the 1900s if yy is two 
digits. Use the YEARCUTOFF = system option to override the system 
default and specify your choice of date range. 



Example 



Data Lines 



SAS Statement 



Results 



+— 

010190 
1/1/90 
01 1 90 



input day mmddyy8 . ; 



10958 
10958 
10958 



See Also 

DATEw., DDMMYYw., and YYMMDDw. informats 

"SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language" 

DAY, MDY, MONTH, and YEAR functions in Chapter 11, "SAS 
Functions" 

DATEw., DDMMYYw., MMDDYYw., and YYMMDDw. formats in Chapter 
14, "SAS Formats" 

YEARCUTOFF= system option in Chapter 16, W SAS System Options" 



MONYYw. Description 

The MONYYw. informat reads date values in the form mmrnyy, where 
mmm is the first three letters of the month name, and yy or yyyy is an 
integer representing the year. The mmm and yy or yyyy values cannot be 
separated by blanks. A value read with the MONYYw. informat results in 
a SAS date value corresponding to the first day of the specified month. 

Note: The SAS System defaults to a date in the 1900s if yy is two 
digits. Use the YEARCUTOFF= system option to override the system 
default and specify a date range of your choice. 

Example 

Data Line SAS Statement Result 
+ 1 + 2 

jun89 input month monyyS. ; 10744 

See Also 

DDMMYYw., MMDDYYw., and YYMMDDw. informats 

"SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language" 

MONTH and YEAR functions in Chapter 11, U SAS Functions" 

DDMMYYw., MMDDYYw., MONYYw., and YYMMDDw. formats in 
Chapter 14, "SAS Formats" 

YEARCUTOFF= system option in Chapter 16, "SAS System Options" 



Reads month and year date 
values (mmmyy) 

Date and time 

Width range: 5-32 

Default width: 5 

HELP INFORMAT 
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MSECw 



Reads TIME MIC values 

Date and time 
Width range: 8 
Default width: 8 
HELP INFORMAT 



Description 

The MSECw. informat reads time values produced by IBM mainframe 
operating systems, converting the time values to SAS time values. The w 
value must be 8, because the OS TIME macro or the STCK System/370" 
instruction on IBM mainframes each return an 8-byte value* 

Comparisons 

The MSECw. and TODSTAMPw. informats both read IBM time-of-day 
clock values, but the MSECw. informat assigns a time value to a variable, 
and the TODSTAMPw. informat assigns a datetime value. Use the MSECw. 
informat to find the difference between two MVS TIME values, with 
precision to the nearest microsecond. 



Example 



Data Line * 



SAS Statement 



Result 



0000EA0ME65A000 



input btime msec8. ; 



62818.412122 



* The data line is a hexadecimal representation of a binary 8-byte time-of-day clock value. 
Each byte occupies one column of the input field. The result is a SAS time value 
corresponding to 5:26:58.41 PM. 



See Also 

TODSTAMPw. informat 



NENGOw. 

Reads Japanese date 
values (r.yymmdcf) 

Date and time 

Width range: 7-32 

Default width: 10 

HELP INFORMAT 



Description 

The NENGOw, informat reads Japanese date values in the form r.yymmdd, 
where r is a letter representing an emperor's reign: M(Meiji), T(Taisho), 
S(Showa), or H(Heisei). The period is optional, and yy, mm, and dd are 
integers representing the year, month, and day. The year, month, and day 
values can be separated by blanks or any nonnumeric character. 
However, if delimiters are used, place them between all fields in the 
value. 

See Also 

"SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language" 
NENGOw. format in Chapter 14, "SAS Formats* 



System/370 is a trademark of International Business Machines Corporation. 



Comparisons 

The w.d informat is identical to the BZw.d informat, except that the w.d 
informat ignores trailing blanks in the numeric values. To read trailing 
blanks as Os, use the BZw.d informat. 

The w.d informat can read values in scientific E-notation exactly as the 
Ew.d informat does. 

Example 

Data Line SAS Statement Results 
+— 1 + 2 

23 2300 input 31 x 6. 310 y 6.2; 

23 2300 
23 -2300 
23.0 23. 
2.3E1 2.3 
-23 0 



YYMMDDw. Description 

Reads date values {yytfundd) 

Date and time 
Width range: 6-32 
Default width: 6 
HELP INFORMAT 



Example 



Data Lines SAS Statements Results 
+ 1 + 2 

900101 input beg yymmdd8.; 10958 
90 1 1 10958 
90-01-01 10958 
90/1/1 10958 
19900101 10958 

+ 1 + 2 

19520101 input date yymmddlO.; -2922 
1884/10/16 -27469 



23 
23 
23 
23 
23 
-23 



23 
23 
-23 
23 
2.3 
0 



The YYMMDDw. informat reads date values in yymmdd form, where yy, 
mm, and dd are integers representing the year, month, and day. The 
month, day, and year fields can be separated by blanks or special 
characters. However, if delimiters are used, they should be placed 
between all fields in the value. Blanks can also be placed before and after 
the date. 

Note: The SAS System defaults to a date in the 1900s if yy is two 
digits. Use the YEARCUTOFF= system option to override the system 
default and specify your choice of date range. 



DATEw. 

Writes date values 
(ddmmmyy) 

Date and time 

Width range: 5 — 9 

Default width: 7 

Alignment: right 

HELP FORMAT 



Description 

The DATEw. format writes SAS date values in the form ddmmmyy, where 
dd is an integer representing the day of the month, mmm is the first three 
letters of the month name, and yy or yyyy is the year. 

Example 



Value 



10817 



SAS Statements 



Results 



pet day dates, 
pat day date6. 
pat day date7. 
pat day date8. 
pat day date9. 



12SEP 

12SEP 
12SEP89 

12SEP89 
12SEP1989 



— + 2 



See Also 

"SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language 1 
DATE function in Chapter 11, "SAS Functions** 
DATEw. informat in Chapter 13, "SAS Informats" 



DATETIMEiv.d 



datetime values 
iddmmmyy:hh:mm:$s.ss) 

Date and time 

Width range: 7—40 

Default width: 16 

Alignment: right 

HELP FORMAT 



Description 

The DATETIMEw.d format writes SAS datetime values in the format 
ddmmmyy:hh:mm:ss.ss 9 representing a specific day, month, year, hour, 
minute, second, and decimal fraction of a second. The SAS System requires 
a minimum w value of 16 to write a SAS datetime value with the date, 
hour, and seconds. Add an additional two places to the width to return 
values with optional decimal fractions of seconds. 

Note: The d value can range from 1 through 39, but must be less than 
the specified w value. If w—d is less than 17, the SAS System truncates the 
decimal values. 



Example 



Value 



937192783 



SAS Statements 



put event datetime7.; 
put event datetime 12.; 
put event datetime18 . ; 
put event datetime18.1; 



Results 



— + 1 + 2 

12SEP89 

12SEP89:03 

12SEP89:03: 19:43 
12SEP89:03: 19:03.0 
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See Also 

DATEw. and TIMEw.d formats 

tt SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language 1 

DATETIME function in Chapter 11, "SAS Functions" 

DATEw., DATETIME w M and TIMEw. informats in Chapter 13, "SAS 
Informats" 



DAYiy. 

Writes day of month 

Date and time 
Width range: 2-32 
Default width: 2 
Alignment: right 
HELP FORMAT 



Description 

The DAYw. format writes the day of the month from a SAS date value. 



Example 



Value 



SAS Statement 



Result 



10919 



put date day2.; 



23 



See Also 

"SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language" 



DDMMYYw. 

Writes date values (ddmmyy) 

Date and time 
Width range: 2—10 
Default width: 8 
Alignment: right 
HELP FORMAT 



Description 

The DDMMYYw. format writes SAS date values in ddmmyy form, where dd, 
mm, and yy are integers representing a specific day, month, and year. 
When the w value is from 2 to 5, the SAS System prints as much of the 
month and day as possible. When the w value is 7, the date appears as a 
two-digit year without slashes, and the value is right aligned in the output 
field. 

Example 



Value 



SAS Statements 



Results 



11316 



put date ddmmyy 5. 
put date ddmmyy 6. 
put date ddmmyy 7. 
put date ddmmyy 8. 



25/12 
251290 
251290 
25/12/90 
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See Also 

DATEw., MMDDYYw., and YYMMDDw. formats 

"SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language" 
MDY function in Chapter 11, "SAS Functions" 

DATEw., DDMMYYw., MMDDYYw., and YYMMDDw. informats in Chapt 
13, "SAS Informats" 



Description 

The DOLLARw.d format writes numeric values with a leading dollar sign 
and a comma separating every three digits of each value. The w value 
specifies the total width of the output field. The d value, which must be 
either 0 or 2, specifies whether to include decimal digits in the value. If 
the d value is 2, the DOLLARw.d format writes a decimal point and two 
decimal digits. If the d value is 0, the DOLLARw.d format does not write 
a decimal point or decimal digits. 

The hexadecimal representation of the code for the dollar sign character 
($) is 5B on EBCDIC systems and 24 on ASCII systems. The monetary 
character these codes represent may be different in other countries, but 
the DOLLARw.d format always produces one of these codes. If you need 
another monetary character, you can define your own format with the 
FORMAT procedure. See Chapter 18, "The FORMAT Procedure" in the 
SAS Procedures Guide, Version 6, Third Edition for more details. 

Comparisons 

The DOLLARw.d format operates like the DOLLARXw.d format, but the 
DOLLARXw.d format reverses the roles of the decimal point and the 
comma. This convention is common in European countries. 

The DOLLARw.d format operates exactly like the COMMAw.d format 
except that COMMAw.d format does not write a leading dollar sign. 

Example 

Value SAS Statement Result 



DOLLARw.d 

Writes numeric values with 
dollar signs, commas, and 
decimal points 

Numeric 

Width range: 2-32 
Default width: 6 
Alignment: right 
HELP FORMAT 



+ 1 + 2 

1254. 7 1 put 93 netpay dollar10.2; $1,254.71 
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DOLLARXw.d 

Writes numeric values with 
dollar signs, periods, and 
commas 

Numeric 

Width range: 2—32 
Default width: 6 
Alignment: right 
HELP FORMAT 



Description 

The DOLLARXw.d format writes numeric values with a leading dollar sim 
and a penod separating every three digits of each value. The wZT ^ 

eftW 0 oJV °l ° UtPUt 6eld - ^ d VaIue ' which »«* * 

either 0 or 2, specifies whether to include decimal digits in the value If th* 

tit***? ^ ? 0LLA ^ w d format writes a comma and tw^timi 
dedm'al digits " ^ D0LLARXw - d format ™> comma or 

W is 5B on EBCDIC systems and 24 on ASCII systems. The monetary 

DO^^wTfo^ If * different - countriesX the 

uuLLAKXw.d format always produces one of these codes. If you need 

another monetary character, you can define your own format with the 
222^ ^ Ure - QmflBr 18 in SAS Procedures Guide for more 



Comparisons 

The DOLLARXw.d format operates like the DOLLARw.d format but 
reverses the roles of the decimal point and the comma. This convention is 
common in European countries. n u 

th^r^SH^T^ f0rmat 0perateS Uke the COMMAXw.d format except 
that COMMAXw.d does not print a leading dollar sign. 

Example 



Value 



SAS Statement 



Result 



1251.71 



put 93 netpay dollarx10.2- 



.-+ 1 + 2 

$1,251,71 



DOWNAMEw. 

Writes name of day of the 
week 

Date and time 
Width range: 1—32 
Default width: 9 
Alignment: right 
HELP FORMAT 



Description 

The DOWNAMEw. format writes the name of the day of the week from a 
SAS date value, with the first letter capitalized and the remainder of the 
name in lowercase letters. The name of the day is truncated to fit the 
format width if necessary. Thus, the format DOWNAME2. can be used to 
print the first two letters of the day name. If no w value is specified, the 
entire name of the day is printed. 

Example 



Value 



SAS Statement 



Result 



10621 



put date downame. • 



+ 1 +. 

Sunday 
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Example 



Data Value 



SAS Statement 



Result' 



128 



put x ii>4.; 



00000080 



* The result is a hexadecimal representation of a 4-byte integer binary number. Each bvt< 
occupies one column of the output field. 



JULDAYw. 

Writes Julian day of the year 

Date and time 
Width range: 3—32 
Default width: 3 
Alignment: right 
HELP FORMAT 



Description 

The JULDAYw. format writes the Julian day of the year from a SAS date 
value. 

Example 



Value 



SAS Statement 



10621 10624 



put datel julday3. +1 date2 
julday3.; 



Result 



+ 1 + 2 

29 32 



See Also 

M SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language" 



JULIANw. 

Writes Julian dates (yyddd 
or yyyyddd) 

Date and time 

Width range: 5—7 

Default width: 5 

Alignment: left 

HELP FORMAT 



Description 

The JULIANw. format returns a Julian date from a SAS date value. The 
SAS System writes the Julian date with a two-digit year when the w value is 
5. If the w value is 7, the Julian year value is four digits. To avoid 
confusion, use a four-digit year when the century is not clearly defined. 

Examples 



Value 



SAS Statements 



Results 



9952 



put date julianS.; 
put date julian6.; 
put date julian7.; 



87091 

087091 

1987091 



-1 + 2 
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See Also 

DATEJUL and JULDATE functions 

"SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language" 
JULIANw. infonnat in Chapter 13, "SAS Informats" 



MMDDYYw. 

Writes date values [mmddyy) 

Date and time 
Width range: 2—10 
Default width: 8 
Alignment: right 
HELP FORMAT 



Description 

The MMDDYYw. format writes a SAS date value in mmddyy form, where 
mm, dd, and yy are integers representing the month, day, and year. 

Examples 



Value 



Y0847 



SAS Statements 



put day 
pat day 
pat day 
put day 
put day 
pat day 
pat day 



mmddyy 2. 
mmddyy 3 . 
mmddyy4 . 
mmddyy 5 . 
mmddyy6 . 
mmddyy 7. 
mmddyy8 . 



Results 



09 
09 

0912 
09/12 
091289 
091289 
09/12/89 



— + 2 



See Also 

DATEw., DDMMYYw., and YYMMDDw. formats 

"SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language" 

DAY, MDY, MONTH, and YEAR functions in Chapter 11, "SAS 
Functions" 

DATEw., DDMMYYw., MMDDYYw., and YYMMDDw. informats in Chapter 
13, "SAS Informats" 
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MMSSw.d 

Writes minutes and seconds 

Date and time 
Width range: 2—20 
Defatdt width: 5 
Alignment: right 
HELP FORMAT 



Description 

The MMSSw.d format converts a SAS time value to the number of minutes 
and seconds since midnight. The SAS System requires a minimum w value 
of 5 to write a value representing minutes and seconds. If the optional d 
value is specified, the SAS time value includes fractional seconds. The d 
value can range from 1 through 19, but must be less than the w value. 

Example 



Value 



SAS Statement 



Result 



4530 



put time mass. ; 



75:30 



— 1 + 2 



See Also 

HHMMw.d and TIMEw.d formats 

W SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language 1 
HMS, MINUTE, and SECOND functions in Chapter 11, "SAS Functions' 
TIMEw. informat in Chapter 13, "SAS Informats" 



MMYYxw. 

Formats that write month 
and year, separated by a 
character 

Date and time 

Width range: 5—32 

Default width: 7 

Alignment: right 

HELP FORMAT 



Description 

The MMYYxw. formats write the month (01 through 12) and year from a 
SAS date value, separated by colons, dashes, or other specific characters. 
The value of x can be C, D, N, P, or S, representing the type of separator; 
w represents the format width value. If the w value is too small to print a 
four-digit year, only the last two digits of the year are printed. 

Example 

Refer to the following table for a list of MMYYxw. formats and examples 
returned from an original date value of 29mayl989: 



Name 


Separator 


Example 


Results 


MMYYw. 


letter M 


ramyyS . 


05H89 


MMYYCw. 


colon 


mmyyc7 . 


05: 1989 


MMYYDw. 


dash 


mmyyd7 . 


05-1989 


MMYYNw. 


no separator 


znmyyn6 . 


051989 


MMYYPw. 


period 


mmyyp6 . 


05.89 


MMYYSw. 


slash 


mmyys7 . 


05/1989 



If 
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See Also 

YYMMxw. formats 

"SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language 



MONNAMEw. 

Writes name off month 

Date and time 
Width range: 1-32 
Default width: 9 
Alignment: right 
HELP FORMAT 



Description 

The MONNAMEw. format writes the name of the month from a SAS date 
value, with the first letter capitalized and the remainder of the name in 
lowercase letters. The name of the month is truncated to fit the format 
width if necessary. Thus, the format MONNAME3. can be used to print 
the first three letters of the month name. 

Example 



Value 



SAS Statements 



10919 



put date monname9.; 
put date monnamel. ; 



Results 



+ 1 + 2 

November 

N 



See Also 

MONTHw. format 

tt SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language* 



MONTHw. 

Writes month of year 

Date and time 
Width range: 2-32 
Default width: 2 
Alignment: right 
HELP FORMAT 



Description 

The MONTHw. format writes the month (01 through 12) of the year from 
a SAS date value. 

Example 



Value 



SAS Statement 



Result 



10919 



put date month. ; 



11 



See Also 

MONNAMEw. format 

"SAS Date and Time Values* in Chapter 4, "Rules of the SAS Language* 
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MONYYiv. 

Writes month and year 
[mmmyy or mmmyyyy) 

Date and time 

Width range: 5 — 7 

Default width: 5 

Alignment: right 

HELP FORMAT 



Description 

The MONYYw. format writes SAS date values in the form mmmyy, where 
mmm is the first three letters of the month name, and yy or yyyy is a two- 
or four-digit integer representing the year. 

Example 



Value 



SAS Statement 



10750 



put acquired monyy7.; 



Result 



+ 1 +. 

JUN1989 



See Also 

DDMMYYw., MMDDYYw., and YYMMDDw. formats 
"SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language' 
MONTH and YEAR functions in Chapter 11, "SAS Functions w 
MONYYw. informat in Chapter 13, "SAS Informats w 



NEGPARENw.4 

Displays negative values In 
parentheses 

Numeric 

Width range: 1—32 
Default width: 6 
Alignment: right 
HELP FORMAT 



Description 

The NEGPARENw.d format displays negative numbers enclosed in 
parentheses and nonnegative numbers with blanks instead of parentheses 
for proper column alignment. That is, the NEGPARENw.d format reserves 
the last column for a right parenthesis, even when the value is positive. 
The NEGPARENw.d format uses minus signs if a field is not wide enough 
for a number with parentheses. 

The d values, which must be either 0 or 2, specify whether to 
include decimal digits in the values. If you specify a d value of 2, the 
NEGPARENw.d format writes a decimal point and two decimal digits. If 
you specify a d value of 0, the NEGPARENw.d format does not write a 
decimal point or decimal digits. 



Comparisons 

The NEGPARENw.d format operates just like the COMMAw.d format, 
separating every three digits of the value with a comma. 

Example 



Values 



SAS Statement 



Results 



1000 
-2000 



put 31 sales negparenlO.; 



+ 1 

1,000 
( 2,000) 
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NENGOw. 

Writes Japanese dates 
[r.yynmdtl) 

Date and time 
Width range: 2-10 
Default width: 10 
Alignment: left 
HELP FORMAT 



Description 

The NENGOw, format writes Japanese date values in the form r.yymmdd, 
where r is a letter representing an emperor's reign: M (Meiji), T (Taisho), 
S (Showa), or H (Heisei). The period is optional and yy, mm, and dd are 
integers representing the year, month, and day. 

Examples 



Value 



SAS Statements 



Results 





+ 1 + 2 


978a * put date nengo2.; 


61 


pat date nengo3.; 


S61 


pat date nengofl.; 


S.61 


pat date nengoS.; 


S6110 


pat date nengo6. ; 


S61/10 


pat date nengo7.; 


S611015 


pat date nengo8 . ; 


S. 611015 


pat date nengo9.; 


S61/10/15 


pat date nengolO.; 


S. 61/10/15 


* This corresponds to 150CT86. 



See Also 

"SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language" 
NENGOw. informat in Chapter 13, "iSAS Informats" 
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Example 



Value 



SAS Statement 



Result 



12 



put x pibl . ; 



OC 



* The result is a hexadecimal representation of a 1-byte binary number written in positive 
integer binary format, occupying one column of the output field. 



PKw.d 

Writes unsigned packed 
decimal data 

Numeric 

Width range: 1-16 
Default width: 1 
Alignment: left 
HELP FORMAT 



Description 

The PKw.d format converts numeric values to unsigned packed decimal 
values. Each byte of unsigned packed decimal data contains two digits. 
The w value specifies the width of the output field. When you specify a d 
value, the PKw.d format multiplies the number by 10 d . 

Comparisons 

The PKw.d informat operates like the PDw.d informat except that the 
PKw.d format does not write the sign in the low-order byte. 

Example 



QTRw. 

Writes quarter off year 

Date and time 
Width range: 1-32 
Default width: 1 



Alignment: right 
HELP FORMAT 



Value 



SAS Statement 



Result 



128 



put x pk4.; 



00000128 



* The result is a hexadecimal representation of a 4-byte number written in packed decimal 
format Each byte occupies one column of the output field. 



Description 

The QTRw. format writes the quarter of the year from a SAS date value. 

Example 



Value 



SAS Statement 



Result 



10741 



put date qtr. ; 



+ 1 + 2 

2 



See Also 

QTRRw. format 

"SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language" 
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QTRRw. 

Writes quarter off year in 
Roman numerals 

Date and time 

Width range: 3—32 

Default width: 3 

Alignment: right 

HELP FORMAT 



Description 

The QTRRw. format writes the quarter of the year from a SAS date value 
using Roman numerals. 

Example 



Value 



SAS Statement 



Result 



10897 



put date qtrr3.; 



IV 



See Also 

QTRw. format 

"SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language' 



RBw.d 

Writes real binary 
(floating-point) data 

Numeric 

Width range: 2—8 
Default width: 4 
Alignment: left 
HELP FORMAT 



► Caution: Using RB4 may 
result in truncation. 



Description 

The RBw.d format writes numeric data in real binary (floating-point) 
notation. The w value specifies the width of the output field. When you 
specify a d value, the RBw.d format multiplies the number by 10 d , then 
applies the real binary format to that value. The d value is just a scaling 
factor and does not indicate the number of decimal places. 

The RBw.d format writes numeric data in the same way the SAS System 
stores them. Since it requires no data conversion, the RBw.d format is the 
most efficient method for writing data with the SAS System. 

Note: Different computer systems store real binary values in different 
ways. However, the RBw.d format writes real binary values with consistent 
results on the same kind of computer system you use to run the SAS 
System. 

Using RB4. to write real binary data on equipment conforming to the IEEE 
standard for floating-point numbers results in a truncated 8-byte number 
rather than a true 4-byte floating-point number. 



Comparisons 

The following table compares the names of real binary notation in several 
programming languages: 



Language 



Real Binary Notation 
4 Bytes 8 bytes 



SAS 

FORTRAN 
C 

COBOL 

IBM 370 assembler 



RB4. 

REALM 

float 

COMP-1 

E 



RB8. 
REAL* 8 

double 

COMP-2 

D 
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See Also 

TIME w.d format 

"SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language" 
TIMEPART function in Chapter 11, W SAS Functions" 
TIMEw. informat in Chapter 13, "SAS Informats" 



w.d 

Writes standard numeric 
data 

Numeric 

Width range: 1-32 
Alignment: right 
HELP FORMAT 



Description 

The w.d format writes standard numeric values one digit per byte. The w 
value specifies the width of the output field. The d value optionally 
specifies the number of digits to the right of the decimal point in the 
numeric value. If you specify 0 for the d value or do not specify any d 
value, the w.d format writes the value without a decimal point. 

The w.d format rounds to the nearest number that fits in the output 
field. If the number is too large to fit, the w.d format uses the BESTw. 
format. The w.d format writes negative numbers with leading minus signs. 
In addition, the w.d format right justifies before writing and pads with 
leading blanks. 

When you are choosing a w value, remember to allow enough space to 
write the value, the decimal point, and a minus sign, if necessary. 



Example 



Value SAS Statement Result 

+ 1 + 2 

23.45 pat 97 x 6.3; 23.450 



WEEKDATEw. 

Writes day of week and 
date (day-of-weeJt, 
montfMiame dd, yy) 

Date and time 

Width range: 3-37 

Default width: 29 

Alignment: right 

HELP FORMAT 



Description 

The WEEKDATEw. format writes a SAS date value in the form 
day-of-week, month-name dd, and yy or yyyy. If the w value is too small to 
write the complete day of the week and month, the SAS System 
abbreviates as needed. 

Comparisons 

The WEEKDATEw. format is the same as the WEEKDATXw. format 
except the WEEKDATEw. format prints dd after the month's name. 
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Example 



Value 



SAS Statements 



Results 



10848 



put begin weekdate3.; 
put begin weekdate9.; 
put begin weekdate15.; 
put begin weekdate17.; 



- — +- — 1 +~ 

Ned 

Wednesday 
Wed, Sep 13, 89 
Wed, Sep 13, 1989 



See Also 

DATEw., DDMMYYw., MMDDYYw., TODw., WEEKDATXw and 
YYMMDDw. formats 

«SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language" 

JULDATE, MDY, and WEEKDAY functions in Chapter 11, 
"SAS Functions** 

^^c??^^' MMDDYYw - ** d YYMMDDw. informats in Chapter 
13, SAS Informats" 



WEEKDATXw. 

Writes day off week and 
date (tf ay-of-weelr, tfd 
month-name yy) 

Date and time 

Width range: 3-37 

Default width: 29 

Alignment: right 

HELP FORMAT 



Description 

The WEEKDATXw. format writes a SAS date value in the form 
day-of-wee*, dd month-name yy or yyyy. If the w value is too small to write 
the complete day of the week and month, the SAS System abbreviates as 
needed (see the WEEKDATEw. format example). 

Comparisons 

The WEEKDATXw. format is the same as the WEEKDATEw. format 
except that the WEEKDATXw. format prints dd before the month's name. 

Example 



Value 



10869 



SAS Statement 



Result 



pat begin veekdatx.; 



+ 1 + 2 + 

Wednesday, 4 October 1989 



See Also 

WEEKDATEw., WORDDATEw., and WORDDATXw. formats 

"SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language" 

TODAY and WEEKDAY functions in Chapter 11, "SAS Functions" 

° A ^^??? IMYYW -' MMDDYYw., and YYMMDDw. informats in Chapter 
13, SAS Informats" 
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WEEKDAYS. 

Writes day of week 

Date and time 
Width range: 1-32 
Default width: 1 
Alignment: right 
HELP FORMAT 



Description 

The WEEKDAYw. format writes the day of the week from a SAS date 
value (where 1= Sunday, 2= Monday, and so on). 

Example 



Value 



SAS Statement 



Result 



■+ 2 



10621 



pat date weekday.; 



See Also 

DOWNAMEw. format 

"SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language" 



WORDDATEw. 

Writes date with name of 
month, day, and year 
(month-name dd, yyyy) 

Date and time 
Width range: 3-32 
Default width: 18 
Alignment: right 
HELP FORMAT 



Description 

The WORDDATEw. format writes a SAS date value in the form 
month-name dd, yyyy. If the w value is too small to write the complete 
month, the SAS System abbreviates as needed. 

Comparisons 

The WORDDATEw. format is the same as the WORDDATXw. format 
except that the WORDDATEw. format prints dd after the month's name. 

Example 



Value 



11212 



SAS Statements 



put term worddate3.; 
pat term vorddate9.; 
put term vorddate12.; 
put term vorddate18.; 
put term worddate20.; 



Results 



+ 1 + 

Sep 

September 
Sep 12, 1990 
September 12, 1990 
September 12, 1990 



See Also 

WORDDATXw. format 

"SAS Date and Time Values" in Chapter 4, "Rules of the SAS Language" 
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DATE 

Prints the date and time 

Valid as part of: configuration 
file, OPTIONS statement, 
OPTIONS window, SAS 
invocation 

HELP DATE 



Syntax 

DATE | NODATE 

Description 

The DATE system option controls whether the date and time that the SAS 
job began are printed at the top of each page of the SAS log and any print 
file created by the SAS System. (In display manager and interactive line 
mode sessions, the date and time appear only on procedure output.) 
You can use the following forms of the DATE system option: 



DATE 
NODATE 



specifies to print the date and time, 
specifies not to print the date and time* 



DBCS Syntax 

DBCS | NODBCS 

Description 

The DBCS system option specifies whether the SAS System recognizes 
double-byte character sets (DBCS). (Double-byte character sets use 2 bytes 
for each character in the set.) 

The DBCS system option is used for various reasons including converting 
lowercase data that are input into the SAS System to uppercase and 
supporting languages such as Chinese, Japanese, Korean, and Taiwanese. 
You can use the following forms of the DBCS system option: 

DBCS specifies that the SAS System process double-byte character 

sets. 

NODBCS specifies that the SAS System not process double-byte 

character sets. 

See Also 

DBCSLANG= system option 
DBCSTYPE= system option 



Recognizes double-byte 
character sets (DBCS) 

Valid as part of: configuration 
file, SAS invocation 

HELP DBCS 
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Syntax 

WORKTERM | NOWORKTERM 

Description 

The WORKTERM system option specifies whether SAS WORK files, such 
as data sets, are erased from the current SAS WORK data library at the 
termination of the SAS session. The aliases for this option are WRKTERM 
and NOWRKTERM. 
You can use the following forms of the WORKTERM system option: 

WORKTERM specifies to erase the WORK files. 

NOWORKTERM specifies not to erase the WORK files. 

Although NOWORKTERM prevents the WORK data sets from being 
deleted, it has no effect on initialization of the WORK library by the SAS 
System. The SAS System normally initializes the WORK library at the 
start of each session, which effectively destroys any pre-existing 
information. 

Comparisons 

Use the WORKINIT system option to control whether the WORK data 
library is cleared when the SAS System is invoked. 

See Also 

WORKINIT system option 



WORKTERM 

Erases WORK files at the 
termination of a SAS 
session 

Valid as part of: configuration 
file, OPTIONS statement, 
OPTIONS window, SAS 
invocation 



YE ARCUTOFF = 

Specifies the first year of a 
100-year span used by 
informats and functions 

Valid as part of: configuration 
file, OPTIONS statement, 
OPTIONS window, SAS 
invocation 

HELP YEARCUTOFF 



Syntax 

YEARCUTOFF— nnnn | nnnnn 

Description 

The YEARCUTOFF = system option specifies the first year of a 100-year 
span used as the default by various DATE and DATETTME informats and 
functions. 

You can use the following argument with the YEARCUTOFF = system 
option: 



nnnn 
nnnnn 



specifies the first year of the 100-year span. Valid values are 
from 1582 through 19900. 

If the default value of nnnn (1900) is in effect, the 100-year span begins 
with 1900 and ends with 1999. Therefore, any informat or function that 
uses a two-digit year value assumes a prefix of 1 9. For example, the value 
92 refers to the year 1992. 

Note that the value specified in the YEARCUTOFF = system option can 
result in years that occur in two centuries. For example, if you specify 
YEARCUTOFF =1950, any two-digit value between 50 and 99 inclusive 
refers to the first half of the 100-year span, which is in the 1900s. Any 
two-digit value between 00 and 49 inclusive refers to the second half of 
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the 100-year span, which is in the 2000s. Figure 16.1 illustrates the 
relationship between the 100-year span and the two centuries if 
YEARCUTOFF =1950. 

Figure 16.1 A 100-year 100-year span 

Span with Values in Two i 

Centuries 

1950 1999 2000 2049 

4 ▲ ▲ ▲ 



in the 1900s in the 2000s 



The YEARCUTOFF = system option applies to one- and two-digit years 
specified in the MMDDYY, YYMMDD, MONYY, DDMMYY, DATE, 
DATETIME, and YYQ informats and to one- and two-digit years specified 
in the DATEJUL, MDY, MONYY, and YYQ functions. 

■ Host Information The syntax shown above applies to the OPTIONS statement. However, 

when you specify the YEARCUTOFF = system option on the command 
line or in a configuration file, the syntax is host specific and may include 
additional or alternate punctuation. For details, refer to the SAS 
documentation for your host system. 
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Oracle Office to 
throw down the 
gauntlet to Notes 

Groupware blueprint adds 
image, voice to Oracle DBMS 



Key accounts defect despite new OfficeVision initiatives, products 



By .Johanna Ambrosio 



By Kim S. Nash 

REDWOOD SHORE*. CALIK. 



IBM Is fighting to keep Office- 
Vision — its much-delayed and 
maligned office automation 
framework — alive even as some 
key customers are leaving the fold. 

For example. IBM's recent intro- 
duction of some OfficeVision com- 
ponents that ran on local-area net- 
works (sec story page 16) has not 
been enough to stop some 1 argc ac- 
counts from kissing the whole 
thing good-bye. Southern Colifor- 



Oracle Corp. plans to disclose blueprints for a 
groupware product a la Lotus Notes during its 
annual International Oracle User Croup con- 
ference later this month. The database maker 
is also expected to unveil several so-called 
"media server" add-on modules that will let its . _ 
Oracle database handle voice, images and full- nia Edison Co. a huge ut.lily in 
mollonvideo,sourccssaid. Roscmead. Calif will by early 

- - plot content to let 1 next year move its 10.000 Office- 

Lotus Development I Vision end users to an as-yel un- 
Corp. control a bur- determined alternative system, 
geoning groupware I "OfficeVision Just does not meet 
market, Oracle plans our long-term direction for client/ 
to eventually remake 



Mixing, it; Up 



According to IBM reports, the 
number of OfficeVision end users Is 
ffowlng by u% annually 



BftCAXOOWN or 

9 Miuton Of rictVmoK 

CHO USCftS WOKLDWIDI 




server" said David Tommela, 
manager of information technol- 
ogies. He said the utility looked in- 
to tKe IBM LAN offerings butdecid- 
ed to go with another supplier. 
Whichever environment it chooses 
will eventually support 17,000 
people. 

Despite these defections. Rich- 
ard Sullivan. IBM's director of of- 
fice and publishing marketing, in- 
sisted that "OfficeVision is alive 
and well and still growing." He 
claimed the user base is growing 
by approximately 14% annually, 
but he did not break out what per- 
centage of that figure was new ac- 
■ counts vs. nodes added to existing 
OfficeVision installations. Overall. 
IBM claims some S million end 
OfficeVision, page JG 
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Urry Ellison: /tow 
multimedia demo 



Oracle Office Into a 
Notes rival, according 
to analysts and users 
familiar with Oracle's 
product plans. 

Oracle Office is a 
set of electronic-mail, 
scheduling and direc- 



>peeterofNTunify 



By -lean S. Bozman 



The alignment last week of more 

^ than 75 Unix vendors behind a 

tory service applica- I common set of Unix application 
tions linked to the Oracle relational database, programming interfaces fired a 
A eroupware version of Oracle Office is expect- broadside at an old foe. Micros© t 
ed to be delivered in mid- to late 1994. sources Corp., whose Windows NT operat- 



Lotus and Oracle have discussed linking 
Notes with the Oracle database, analysts said, 
but a revamped Oracle Office would put the 
database maker in competition with Lotus. 

Oracle, page 24 



ing system is just moving into the 
early stages of delivery. 

However, users and analysts 
cautioned that the alliance's im- 
pact may be lessened by a mid- 
1994 delivery schedule. 



"Microsoft 

has done 

mora to unify 

UnUthaaM 

yean of 

history." 

-Alan 

Feddcr. 

executive 

director of 

Washington. 

D.CAfM 

Unix Usen 

Group 



The weapon wielded by the Unix 
vendors at their New York an- 
nouncement last week was eco- 
nomics (see story page 8). 

A common set of. APIs will re- 
duce the cost of creating packaged 
Unix applications, making it easi- 
er and cheaper for developers 
such as Lotus Development Corp., 
Borland International, Inc. and Or- 
acle Corp. to write to the Unix cli- 
ent/server environment. This is 
critical if Unix is to compete with 
Unix/NT war, page 9 




IBM PC Co. wins users; 
backlog threatens gains 



By Michael Fitzgerald 



s k w y o n k 



As IBM PC Co. marks its first anni- 
versary, analysts and many users 



has erased much of the stigma as- 
sociated with the IBM name. But 
all sides agreed the PC Co. still has 
lots to do before it makes its way 
back to the head of the class. 
Us mostpressing piece of home- 
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V IBM report card 



ROItftT COMIGAN. 

president of the IBM 
PC Co,, gave his 
company an A for 
organization and a C- 
for delivery. Analysts 
were generally more 
positive, giving the 
PC Co. a solid A-/B+ 
for becomin g proactive. 



work is to end its relentless back- 
log problems. And then there is the 
need to pack more users into a 
cheering section currently weight- 
ed more heavily in the analyst 
community. 

Results from o.Computerworld 
survey of 100 information systems 
managers last week indicated that 
while many users no longer see 
IBM's PC effort as uncompetitive, 
a good many have made it only to 
neutral ground and are still re- 
servingjudgment. 

There is no question that an un- 
shackled IBM PC Co. is serving as 
an example to the rest of its strug- 
gling parent's units. 

"They've taken a business that 
was spiraling downward and revi- 
talized it," said Richard Zwetch- 
PCCo., page 14 



StVEHTH WWUAL 

iCIAL REPORT 

ON Ptf TRENDS 

OMEN are raakingin- 
roads into higher- 
paying, more respon- 
sible jobs in the 
traditionally male- 
dominated field of in- 
_ formation systems. 
But don't cheer yet: Female IS 
managers still earn an average 
of 15% less than their male coun- 
terparts — a distinct improve- 
ment over the 2 1% shortfall post- 
ed last year but still a telling 
testament to the gender gap. 

IS compensation overall rose 
an average of 3% to 5% this year. 
See page 91. 
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Powerful Assertions for C++ 

By Harald M. Mueller • • • * ' 

If you believe in assertions to enforce pre- and post-conditions, here s a C++ header tile 



21 



that gives you lots of machinery for writing compex assertions 



FEATURES 

All is Flux 39 
ByBobJervis . 

C++ was originally called "C with Classes." The author of Borland's Turbo C revisits 
those roots and takes a new departure. 

Powerful Pointers to Member Functions ~ 

By Christopher Shelly • - ■ . " " 

So you thought you finally understood pointers in C. Now meet pointers to members m C++. 

An Extended Date Library for C ^ 
By Stan Milam • • \ " ,' ' 

If you need to manipulate dates spanning several centuries, this suite of functions 
nicely complements those in the Standard C library. 
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Designing Generic Container Classes, Part 4 

Dan Saks 

Questions & Answers: Handling Constructor Failures 

Kenneth Pugh 
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CUJ Online Source Code 



10 



81 



93 



101 



119 




. 8 
63 
96 
100 
122 
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127 
129 



You can obtain all code published (and some unpublished) in CUJ from: 
USENET (Archived by UUNET Technologies 1 -800-488-6384): 

UU nel!-/published/cuj/19YY/monYY.tar.Z /oYWirOT <5RCS 

Available via anonymous FTP from ftp.uu.net or via uucp from (900)GOT-SRCS 
Download via uucpand uncompress using co^ress-d filenne. then Ur X*f fiM to expand the 

archive. 

?hfc^of Chaos. 501-^^ 

Library 602-970-0474; The Programmer's Corner, 301-596-7692, C_^B2» Une Neineriana^, 
+31-(0)-4930-2036l or +3l-(0)-4930-20792. 

CompuServe: 

GO SDFORUM, Library 7 (R&D Publications) 
GEnie: 

In ihe IBM-PC Roumittble at page 6 1 5 (Keyword: IBMPC). 

Monthly Code Disk: 
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An Extended Date Library for C 



Stan Milam 



Introduction 

One of the most convenient attributes of the Standard C library 
time and date functions is their relatively fine granularity, which is 
in seconds. Having one-second resolution allows date and time to 
be stored as a single field, which is wonderful for logging^pur- 
poses. The downside of this granularity is that it limits the range 
of the date and time functions. Most libraries use the long data 
type to store the combined date and time in the number of seconds 
elapsed since 1 January, 1970. As a result, standard functions can- 
not handle dates before 1 January, 1970. Also, since the long data 
type is 32 bits on most machines, the upper limit of the standard 
functions will be 18 January, 2038. 

This upper limit is fine for most date calculations, and perhaps 
the long data type will someday be extended to 64 or more bits, 
but some date calculations need to exceed this limit now. 

In this article I describe a suite of functions that is as versatile 
as the Standard C time/date functions, but have a greatly extended 
range. To accomplish both versatility and extended range I've 
mimi cked the standard time/date functions, but raised the granu- 
larity of the stored time from elapsed seconds to elapsed days. For 
example, the standard tim() function returns a value of type 
time_t t which contains the number of seconds elapsed since 1 
January, 1970. I've written a corresponding function called dateO 
which returns the number of days elapsed since 1 January, 0001 
A.D. Tyc also written several functions which do not correspond 
to any function in the Standard C library, but extend the capabili- 
ties of my date functions. Because my date functions are similar in 
nature to the standard functions, these extended functions could be 
easily adapted to work with standard time/date functions. 



The Date Types 

My date functions work with one of two date types which are 
analogous to the two time types in the Standard C library. These 
new date types are date_t (a long), and a structure, struct dt 
The following code fragment shows how these new types are de- 
clared in the dates. h header file (this file is not listed here, but is 
included on this month's code disk): 



typedef 


long date_t; 


/* 


Sequential day value */ 


struct 


dt { 






int 


dtjeap^year; 


/* 


Indicates a leap year */ 


int 


dt jrear; 


/* 


The actual year */ 


int 


dtjnonth; 


/* 


The month. 0 - 11 */ 


int 


dtjnday; 


/* 


The day of month, 1-31 */ X 


int 


dt_yday; 


/* 


The day of the year. 0-365 */ \ 


int 


dt_wday; 


/* 


The day of the week. 0-6,*/ * 






/* 


0=Sun*/ 



}; i 

I 

You can use date_t to define variables which represent a 
given date (uniquely) as a long integer. Because dates are usually 
comprised of three different values, (years, months, and days), 
representing a date as a long integer greatly simplifies date math. 
(To see how this integer is calculated, see the sidebar "Converting 
a date to a <fete_t\) 

The second date type, struct dt, corresponds nicely to the 
structure used in the standard time/date functions, struct ta dt 
includes only members which represent dates — hours, minutes, 
and seconds are not included, dt includes one additional member 
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Stan Milam 

which does not correspond to any member of the time structure. 
This member, dt_leap_jear, is set lo 1 when year is a leap year 
and set to 0 otherwise. This structure is available for the program- 
mer's use and is also used extensively by the date functions them- 
selves. 

The Date Functions 

The date functions correspond closely to the standard time/date 
functions. However, they do not necessarily mimic the standard 
functions in every last detail. I will discuss the date function first 
since it is a building block for other functions, date (Listing 2) 



Converting a Date 
to a date t 



Many of my date functions use parameters of type date_t, 
which is a long representing days elapsed since 1 January, 
0001 A.D. This conversion occurs in three stages. First, all 
years previous to the current year must be converted into the 
days elapsed since 1 January, 0001 A.D. Function 
years^idjdays (listing 1) calculates this value by following the 
rules that determine leap years. Since there are always at least 
365"days in a year, years_tojday$ multiples the year value 
(current year -1) by 365. It then adds the result of this opera- 
tion to (year value) divided by 4 to account for leap years. 
Next, years_tojdays subtracts (year value) divided by 100 to 
account for the century years which are not leap years. Finally, 
years_to_day$ adds (year value) divided by 400 to add back 
the centuries which were leap years. Thus, the formula is: 

date_value = year * 365 + year / 4 - year / 100 + year / 400; 

Users typically enter dates in terms of years, months, and 
days; these dates must be converted to type date_t before the 
date functions can use them. This value presumes the Gregorian 
Calendar in use today was implemented on 1 January, 0001 
A.D., (which of course, it was not) and totally ignores the ad- 
justments made by Pope Gregory in 1582 to the calendar. Ig- 
noring this adjustment invalidates all calculations for dates prior 
to October of 1582, but works for later dates, since days 
elapsed merely serves as an index — its absolute value is not 
important. 

In the second step, function tnonths_to_days (Listing 1) uses 
a lookup table to convert all months prior to the current month 
into elapsed days. These days must be added to the value ob- 
tained in the first step. The final step is to simply add the cur- 
rent day of month to the value obtained from the first two 
steps. 

Using this scheme, a huge range of dates is possible; how- 
ever, 1 have imposed an artificial upper limit of 3 1 December, 
9999 (which falls on a Friday). 
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Listing 1 Supporting functions for date library 



/* 
/* 
/* 

y ****** ^ 

# include 
# Include 
lindude 
f Include 
# include 
^include 



(c) Copyright 1993 by Stan Milan. 



r 1 ft * A *~* * 
* 
* 

r *-»*-**-** 



<$td1o.h> 

<stdlib.h> 

<5tring.h> 

<tine.h> 

<ctype.h> 

"dates. h" 



#define MAXOATE 3652059L 



/* 31-Dec-9999 V 



j £ £ £ A ^ A fcA ft#A4A4Jfc4 A 4 A ♦ fe£ 4 it 44 44 4444 44 A A A A 44 44 44 44 A 4 W y 

/* A table which contains an accumulation of days of all pre* */ 
/* ceeding months. */ 

j 4 4 4 ft A A ♦ A A A 4 4 44 4A44444444t44AAA444444AA444444A4 44^Hfc A 4 44 A A A ♦♦♦♦ j 

static int month accuis tabled s C 
0. 31. 59. 90. 120. 151. 
181. 212. 243. 273. 304. 334 

}; 

/**************** ***********+**** 

/* Each element contains the normal number of days for each */ 
/* month. */ 



static Int month_table[3 s { 
31. 28. 31. 30. 31. 30. 
31. 31. 30. 31. 30. 31 



}; 



^*+ ***-***■**♦+ ************** *-*♦-*♦**' 

/* The full names of the weekdays. 
I ******************************** *i 



*/ 



static char *full_weekday[3 ■ { 
"Sunday". "Monday". "Tuesday". 
"Wednesday". "Thursday". "Friday". "Saturday' 

}; 

/********** *************************«********** M 

/* The full names of the months. 

z********************************^**********^ 



V 



static char *full_nonth[] ■ { 

"January". "February", "March". "April". "Hay". "June". 
"July". "August", "September". "October". "Hovember", "OecMber' 

}; 

static int compareC char *sl, char *s2, unsigned len ) { 

unsigned chl. ch2; 

while ( *sl && *s2 len ) { 
chl = toupper(*sl); 
ch2 8 toupper(*s2); 
1f (chl < ch2) 

return -1; 
else If ( chl > ch2 ) 

return 1; 
else sl++. s2++. len--; 
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1f ( len ™ 0 ) return 0: 
else 1f (*sl) return 1; 
else return -1; 



} 



static int 1s_1t_ajeapjrear( unsigned year ) { 

return ((year I 4 « 0 U year % 100 != 0) II year X 

); 
} 

static date.t years_to_days( unsigned year ) { 
date.t rv; 



== 0 



If (year > 0) year--; 

rv e year * 365L + year / 4L - year / 100L + year / 400L; 
return rv; 



} 



static date_t «onths_to_days( Int nonth. 1nt leapjear ) { 
date_t rv; 

rv ■ wnth_accuin_table[iionth * 1]; 
if ( nonth") 2 ) rv +■ leapjrear; 
return rv; 

) 

static Int days_tojwnths( int *days. int leap_year ) { 
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corresponds to the time function in the standard library, date re- 
turns the current date as type date_t. date actually calls the 
standard time function to get the current date/time value; it then 
passes the date/time value to a global utility function, t1me_t0_date. 
time tojdate (Listing 1) produces a date value which function 
date then returns. This value can be used for date math, or as an 
argument to other date functions, including the extended date 
functions. 

localdate (Listing 3) is one of the date functions that takes a 
date t type as an argument. This function corresponds to the 
standard library's local time function, localdate returns a pointer 
to an internal static structure of type struct dt, with members 
filled in to represent the date which was passed as an argument. 
This structure can also be used for date math, but it is more useful 
as an argument to other date functions. Since the extended date 
functions make heavy use of localdate you should make a copy 
of the returned structure value before calling any other functions. 

Example: 

struct dt dt; 

dt = *localdate ( &date_value ); 

The mkdate (Listing 4) function is the inverse of the localdate 
function and corresponds to mktime in the standard library, mkdate 
converts a date structure back to a single date value of type 
date_t. mkdate uses the dt _jear member, and attempts to use the 
dt_month and dtjoday members to calculate a date value. If the 

dtjnonth and dt_mday values are not 
available (or not valid), mkdate uses the 
dt^yday value to calculate the date. This 
behavior departs radically from mktime 's. 
mkdate differs from mktime in another 
way: unlike mktime, mkdate does not fix 
member values in the date structure if it 
finds them to be incorrect. (I implemented 
this adjustment early on, but removed it 
for the sake of efficiency.) If the values in 
the date structure are unsuitable for calcu- 
lating a date value, mkdate returns a value 
of (date_t)(-l) to indicate an error. 

Another function that accepts a date 
structure as an argument is the extremely 
useful strfdate (Listing 5). This function 
corresponds to the strftime function in 
the standard library. You use strfdate to 
build regular text strings of date values. 
strfdate uses format specifiers in a man- 
ner similar to printf. For example, when 
you call strfdate, XA is replaced with the 
full name of a weekday, %B is replaced 
with the full name of the month, and XY is 
replaced by a four-digit year, stri 'date's 
format specifiers are exactly the same as 
strftime 's, except that strfdate does not 
recognize specifiers for time values. 
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Listing 1 continued 














- ■^xm 



1nt rv. nonth. savejaonth; 

savejwnth a month_table[l]; 
■onth.tableCl] leap-year; 
for ( oonth « 0 ;; nontb++ ) { 

if ( *day$ > nonth_tab1e[inonth] ) 

•days -° roonth_table[fflonth]; 

else { 

rv = month; 



break; 



/* 


Go find the 


*/ 


/* 


month and day 


*/ 


/* 


Ho re days than 


*/ 


/* 


in noflth? 


*/ 


/* 


Yes. subtract 


*/ 


/* 


from days 


*/ 


/* 


Found no nth. 


*/ 


/* 


days left over 


*/ 


/* 


Get out of loop 


*/ 



} 



} 

■onth_table[l] a savejaonth; 
return rv; 



/* Return nonth 



} 



week.ofjrearO 



*/ 
*/ 
*/ 



y ^HUHUrt 1 ♦♦♦♦ ww ww ww "wi 

/* 
/* 

/* K0TE1 This function was borrowed froa P. J. Plauger's book */ 

/* The Standard C Library". */ 
/* */ 

y t * it**** ************ ******* * * * * * **** * * ****** *******************/ 

static int weel^of _year( Int start, int wday. int yday ) { 

wday « ( wday + 7 • start ) I 7; 
return ( yday - wday + 12 ) / 7 - 1; 



) 



datej t1oe_to_date( tine.t tv ) { 

date_t rv; 

struct to *ta; 

int year, leapjrear; 



*/ 
*/ 



/* Get a tine structure to use for conversion process. 
/****************** ** **♦»♦*♦****♦***♦**♦♦***♦** ****** #*##***/ 

ta ° local tlae(Atv); 



y»******»********** » »**«******************* **♦»***★»»« * * »*» »/ 

/* Use values In the ta structure to convert the current */ 
/* date into a long integer value. */ 



year = ta -> tajear + 19M; 

leapjear = is_it_ajeap_year(year); 

rv ■ years_to_days( year ); 

rv *« Bonths_to_days(tn -> tnjMn + 1. leapjrear ); 

rv -h= to -> tmjaday; 

return rv; 



) 



/* End of File */ 
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The Extended Date Functions 

As powerful as the regular date functions are, it becomes very 
tedious work doing date math, building date strings, and parsing 
date strings. For this reason I've written three extra functions. The 
first two functions are complementary and deal with date strings. 



Listing 2 Function date 

* • - 

.1 

/ t»iiHini mw*tH** «»"HM i «i»»m ************/ 

/* (c) Copyright 1993 by Stan H11a» */ 

/* *' 

y gj,iA>> i ii>*t *t««****'»*« r * fft 1 ^** ********************** * ******** ^ 

date_t datet date.t *arg ) { 
date„t rv; 

^UlltllllllU M"""' " """* * 11 "" " ' * ******************* / 

/* Use t1cc_to_dateO which uses the AHSI tlueO function */ 
/* to do the actual date conversion. *' 

f»**t ***t *t t I * I i *** * *** ************ * *** * * * *********** / 

rv • t1«_to_date( t1ne( HULL ) ); 

/ »H«i t i»t m * * Ht»n»"''< * * ****** """""* *"*' u "*/ 

/* If an argunent Is supplied put the value in it. */ 

^ t *;*«**** *** * * * * ** ** * ** * * **** * ** ** * ** * ** * *****/ 

1f ( irg 1° NULL ) *arg » rv; 
return rv; 

) 

/* End of File */ 
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Date strings usually occur in a limited number of formats; Build- 
ing a "wrapper" function for strfdate to handle common date 
formats greatly reduces the workload of setting up and calling 
strfdate. tojehar is such a function. to_char (Listing 6) accepts 
the address of a character array where the formatted date is to be 
stored, a date value, and a value which indicates the desired for- 
mat of the output date string. I've defined these in the dates. h 
header file since they correspond to date formats that I use fre- 
quently. The most common date format is represented by GREG- 
DATE, which specifies the format MM/DD/CCYY, where MM is 
the month, DD is the day of month, and CCYY is the year. 
to^char returns the address of the character array where the date 
string is built Thus, all you need to display the current date is: 

puts( to_char( charjmffer. date(NULL). GREGDATE ) ); 

Function tojdate (Listing 6) is the complement of to_char. 
tojdate takes a date string plus a format indicator and calculates a 
date (date_t) value. This function is useful for conversions on 
date strings from data files and from the keyboard Furthermore, 
since tojdate calls tnkdate, it can also validate the date strings. 



/* 
/* 



(c) Copyright 1993 by Stan M1lai 



♦/ 
*/ 



struct dt *localdate( date_t *arg ) { 

date_t day; 

unsigned year; 

static struct dt dt; 

Int yday. "day, leapyear. ■onth. wday: 



/ " « " ' "» * ... * ■* ■■«. ..* * / 

/* Hake sure we are 1n range. Upper H«1t Is 31-Dec-9999. */ 
/ 

day « *arg; 

If ( day < (date_t) 1L II day > (date.t) KWDATE ) return HULL: 



/* 146097 is years_to_days(4M). 



year « (unsigned) ((day * 4«L) / 146I97L + ID; 
while ( years_to_days(year + 1) < day ) year++: 

f ************ ******* ****** * * * * * ** ********** ***************** i 

/* Conpute the regaining values fron what we know already. */ 
I »***** **> **■*** * >*«*«* *" «**»****■>' " *' " **»********»*»*'*/ 

leapyear * isjt_a_leapjrear(year); 

nday s (int) (day - years_to_days( year )): yday * iday ■ 1: 

nonth »= days_to_nonths( leday. leapyear): 

wday • dnt) (day X 7L): 



***************** i 
*/ 



I ******************** 

/* Assign to our internal structure. 
I t+i+ttt+i,**************************************** ****+***** / 

dt.dt_year - year; 
dt.dt.nday * nday; 
dt.dtjrday * yday: 
dt.dt_wday = wday; 
dt.dt_uonth* nonth; 
dt.dtjeapjrear ■ leapyear: 
return &dt: 

1 

/* End of File */ 
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Note: if the century in the date string is omitted, tojdate uses the 
year value to determine, the century. If the year is less than 80, 
tojdate 'will consider the century to be 2000, If the year is greater 
than 79. tojdate will! consider the century to be 1900. rye/in- 
cluded this feature to accommodate the century change which will 
occur in just a little over five years. Thus, to obtain a value for 
today's date you could use the following expression: ; 

datej date.val ; 

date_val = toJate( w 27-Nov-93\ SPELLOATE ); 

The final function in the extended suite is perhaps the most 
useful of all: cotnputejdate (Listing 6). You can use this function 
to add or subtract combinations of years, months, weeks, and days 
to a given date value. The arguments for this function are a 



Listing 4 Function mkdate 



«:-yf 'S> 

, • ■ 'J* 



■-.-t^K-v;-"- 



/* 
/* 



(c) Copyright 1993 by Stan Mi las 



*/ 



/ ********** * ************************************* ** ** *. * . ** *.**. * * * * / 

date.t itdatet struct dt *dt ) ( 

date_t rv: 
Int »ax_day; 

1nt year, aonth, day_of_nonth, day.ofjrear. Ieapjrear; 

f ******** ****** * ** * ***** * * *** * ***** ************ *** ***** **** * f 



I* Get values froa the structure Into local variables. 



V 



t ******* * ** ** ***** I 



year * dt -> dtjrear; 

aonth * dt -> dtjaonth; 

day.of.Bonth « dt -> dt_aday; 
day.ofjrear « dt -> dtjrday: 

I***** ** * **** * *********************** it******** * ************/ 

/* Convert the year Into a sequential nuaber, but check for*/ 
/* errors first. */ 

/*»"** ' t>,, "" >> " i l li i MMUMM i/ 

1f ( year < • M year > 9999 > return { (date.t) -1); 

rv * years_to_days(year): 
Ieapjrear * 1s_1t_ajeapjrear(year); 

/* Try to use the aonth and day of nonth first to get the */ 

/* number of days elpased since the beginning of the year. */ 

/* Use the day of the year If we do not have the above. */ 

/* Check everything along the way. */ 
j**************** ************* * *************** * ** * ***** * **** I 

1f (nonth >* I && ranth < 12) { 
if ( day_of_oonth > • ) ( 

rv ♦= nonths_to_days( aonth + 1, leap_year ); 

nax.day * aonth_table[nonth]; 

1f 7 nonth « 1 ) nax.day +» Ieapjrear: 

If ( day_of_nonth <» naxjlay ) rv += dayj>f_aonth; 

else rv » (date_t) -1; 

) 

else if ( day_of_year >« 8 ) { 
nax_day 3 Ieapjrear ? 365 : 364; 
1 f T day_of jrear <* «ax_day ) rv += day_of jrear + 1 : 
else rv 3 (date_t) -1: 

) 

else rv » (date t) -I: 

1 

else rv = (date.t) -1; 
return rv; 



/* End of File */ 




/* 
/• 
/* 
/* 
/* 
/* 
/* 
/* 
/* 

/* Arguaents: 



(c) Copyright 1993 by Stan Milan 



strfdatet) 



This Is the natn 
acters to format 
aeaory address. 



/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/• 
/* 
/* 
/* 
/* 
/* 

r 



char 'buffer ■ 

unsigned size- 
char *foraat * 



************* f 

*/ 
*/ 
•/ 
*/ 

function in the file. It uses foraat char-*/ 
the date any way we want it in a supplied */ 

*/ 
*/ 
*/ 

Menory address where we place the formatted*/ 
date. 

Max size of the buffer. He do not exceed 
The foraat string. Characters preceeded 
by the X character are taken to be foraat 
specifiers. The foraat specifiers are: 



Xa 
XA 
Xb 
X8 
Xd 
Xj 

xu 

Xw 

u 

Xx 

Xy 

XY 



*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
•/ 
*/ 



struct dt *dt 



Foraat abbreviated weekday nara. 
Full weekday naoe. 
Foraat abbreviated aonth name. 
Foraat full aonth naae. 
Foraat the day of the aonth (91-31).*/ 

*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
/ 



- The day of the year (111 - 366). 

- The aonth of the year (II - 12), 

- The week of year (II - 52. Sunday) 

- The day of week (1-6. Sunday - I) 

- The week of year (II - 52. Monday). 

- The date (HM/DO/CCTY). 

- Foreats a two digit year. 

- Foraats the four digit year. 



A pointer to the dt structure populated 
with the local datet) function. 



The 



Snooper! 
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Monitor User 
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MeAure Transport 
Performance 



User- 
Defined 
Protocols 



Announcement 
actions 



LAN Manager 
Protocols 



Captures, decodes into multiple layers, and displays 
Ethernet traffic, and lets you actually add your own 
protocol interpreters. With source, only $350. 
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SOFTWARE. 

P.O. Box 2571 RofauxbiWA. 98073 



Tel. (206)391-4285 

Fax.(206) 557-0736 



The Protocol Exports 
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$Uc_t len; 
Int start: 
unsigned rv ■ •: 
char vrkbuf[1S]: 
jchar *src ■ forcat: 
ctur *dest= buffer: 

tnt ,, U mirm H^" t """ > * « H * t ** *"' * ** * H * / 

/* Enter 3 loop copying characters fron the fornat string */ 
/• into the buffer unless It Is a fo~t character 

>» »* ii 



while ( *src « size ) ( 
1f ( *src I* 'X' ) { 
*dest++ « *src++: 
size--: rv++: 

} 

else ( 
len « I: 

A 



/* Ve have a fo mat characte r so w ha nd le^lt.^^^^^*/ 



swltchl *++src ) { 



/* Just In case t here Is nothing fa ljff ^l t *{ 

case : 
continue: 



Real-Time Multitasking with DOS 

for Microsoft C. Borland C. Borland/Tu rbo Pascal 

Develop Real-Time Multitasking Applications underMS-DOS with RTKernel! 
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^Srte rKsott C Borland C++, Borland/Turbo Pascal.rand Stgy Brook Pascal RTKemel ,s a 
tar^you car! 1 ™^ t; ™ " ™* un " n,n MVfira! c ftoions or Pascal procedures as parallel 
tasks. RTKemel 



pre-emptive, r . 
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. task-switch time ol approx. 6 u s (33-MHz 4j£ ^ .^;!J^p^JJ 

• performance 
use up to 64 
priorities changeable 
time-slicing can be activated 
programmable timer interrupt rate 



ormance is independent ot the number * ^HxJ ® 
up to 64 priorities to control your task&NX -\ V \^ u :L^'c^ "r\\ n r V 



- high-resolution timer ior time measurement (t.u $)\." £ 

• activate or suspend taskspiApfirte'rrupthan^^ ,. : 

• programmable interrupt priorities . A .\\>; \ . ..; * vV *' 

• semaphores, mailboxes, and roessaae^assing: v> 

• Keyboard, hard disk, and tloppy^isk Hie t|m«\\ 
usable by other tasks > :> -V> 
interrupt handlers for keyboard. COM ports, and 
network interrupts included with source code 




MS* 



RTKernet-C4.0 $495 

C Source Code: add $445 



RTKemel-Pascal 4.0 $445 

Pascal Source Code: add $375 
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Stan Milam 

starting date value, plus the number of years, months, weeks, and 
days to add or subtract. To demonstrate the power and flexibility 
of this function the following sample code obtains the current 
date, adds one year, subtracts three months, adds two weeks, and 
subtracts four days. It then displays the computed date. 

start = date(HULL); 

finish = compute_date(start. 1, -3, 2, -4); 
puts(to_char(buffer, finish. SPELLDATE) ) ; 

Adding years, weeks, and days to a given date is relatively 
straightforward. However, date math using months is a bit compli- 
cated, because not all months contain the same number of days. 
For example, suppose the current date is the last day of May. If 
you wish to compute one month into the future, what day is it — 
The 30th of June, or the 1st of July? I chose to enforce the former 
convention, so in this case the computed date would be the 30th 
of June. However, if the starting date were the 30th of June and 
one month were added the result would be 30th of July, not the 
31st. Another problem arises when adding or subtracting years 
when the starting date is the 29th of February in a leap year. Is the 
resulting date the 28th of February or the 1st of March? Again, 
for consistency, I chose the former convention. 

Miscellaneous Date Functions 

Several functions do not figure so prominently as those mentioned 
already, but are worth mentioning. I've already mentioned the 

tinejojiate function (Listing 1) in pass- 
ing — it converts the values returned from 
time and aktlae in the standard library to 
a date value used by the extended func- 
tions. Fve implemented this conversion so 
as to maintain portability. The 
firstjay_ofjonth and lastjw.otmonth 
functions, (Listing 6) when given a date 
value, determine the month in which the 
date value falls and returns a date value 
for the first day or the last day of the 
month respectively. The nextJ*y_of_*eek 
and the prev1ous_day_of_week functions 
(Listing 6) are useful for detennining 
either a future or past day of the week 
from a given date value. For example, in 
our speech we often say something like 
"The event is three weeks from the com- 
ing Saturday." To compute this with the 
extended date functions you would simply 
write: 



5 uy iu uv vviii iww yn.ij.-v-. . — 

s protocols XOnTXOS OTR/DSR. RTS/CTS 
^N^Io^SOJtiARTchip 
* ' Vojtessor and emulator 

c^munication using Novell's IPX 
' DR-DOS. LANs. 



without re-entrance problems 



date_v = 

nextJay„of_week(date(NULL), SATUR- 
DAY) + 21; 

The dates. /i header file defines values for 
each day of the week. 



□ Request 214 on Reader Service Card □ 
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continued , ■■;:;^^<> \?$fm$& 

/* Format the abbreviated weekday na«e. */ 

case 'a' : 
len ■ 3; 

If ( len > size ) len » sue; 
strncpy(dest. f ul LweekdayCdt -> dtjriiy]. 
len ): 

break: 

I t« f »» ♦*■**«*** 
/* Format the full nane of the «ek. */ 

f **************************** * ** KM t tiimiim / 

case *A* : 

len « strlen( full_weekday[dt -> dtjriajr] ); 
If ( len > size ) len a size; 
strncpy( dest, ful 1 .weekday [dt->dtj*dajr], ten); 
break: 

H „m«,..u» « ».» . » * .»».M / 

/• Format the abbreviated name of the month. */ 

^rtmtrt wiui » »' / 

case V : 
len « 3; 

if ( len > size ) len ■ size: 
strncpytdest. full_aonth(dt -> dt.month], len): 
break: 

/* Format the full nane of the month. */ 

/ * . .».»m.M»i»« » «..i. «* » » / 

case *B* : 

len * strlen(ful1_oonth[dt -> dt.nonth]); 



1 & 




if ( len > size ) lerr = size: 

strncpytdest. ful l_nonth[dt -> dt_nonth], len): 

break: 



,*«*«*+*««***+*+*** 

/* Foniat the day of the month. 
f ****************************** 



********* f 

V 

>**♦**/ 



case 'd* : 

len ' sprint fUrkbuf. "Xfl2d\ dt -> dt_mday): 
if { len > size ) len - size: 
strncpy(dest. wrkbuf. len); 
break; 

/* Format the day of the year (Ml - 366). */ 
I*********************************************** / 



case j : 

len » sprintftwrkbuf. "M3d". 

dt -> dt_yday + 1): 
if t len > size ) len = size: 
strncpy(dest, wrkbuf. len): 
break: 

/* Fornat the uonth of the year (01 - 12). */ 
j ************* * ******** t±*+*+^*+*t****+**+*+***f 

case : 

len * sprintftwrkbuf. "M2d\ 

dt -> dt.month + 1); 
1f t len > size ) len * size: 
strncpytdest. wrkbuf. len); 
break; 
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Compilation Notes 

All the date functions I've described, as well as a few internal 
functions are implemented in a file called dates, c, available on 
this month's code disk. For convenience, dates. c was split into 
Listings 1 thru 6 in this article. Listing 1 contains some ^includes 
and declarations which appear at the beginning of dates, c. If you 
compile any of the date functions separately, be sure to include 
these statements in your source text. 



Summary 

The standard time/date functions are quite adequate for most 
date calculations, but their range is limited because their unit of 
measure is seconds. The date routines presented here overcome 
the limited range of the standard functions while maintaining their 
flexibility. I've presented three additional functions which remove 
much of the burden of formatting date strings, parsing date 
strings, and computing past or future dates. My new date 



Listing 5 continued 



/* Fomats the week of the year. XU starts the */ 
/* week with Sunday. W starts the week with a */ 
/* Monday. 
/ 



V 



case *U* : 
case "W : 

start ■ (*src « 'U') ? 1 : 8; 
len ■ sprintftwrkbuf. T02d". 

weekj>f_year( start, dt -> dt_wday. 
dt->dt_yday)); 
If ( len > size ) len * size: 
strncpytdest, wrkbuf. len); 
break; 



/* Fornat the day of the week (1 - 6). 



/ 

*/ 



»I software 
'architects ... 
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f ***************+****+**+****** *****************[ 



case V 



len « sprintftwrkbuf. "Id", dt -> dt.wday); 
If ( len > size ) len * size; 
strncpy( dest. wrkbuf, len ); 
break; 

I t***** ****** ******** * ** ** * ****** *************** f 

/* Fomats a traditional Gregorian date with */ 
/* single exception: The year 1s four digits. */ 



/ 



case V : 

len « sprtntf(wrkbuf. "ttZd/Xttd/W4d w . 

dt -> dt_nonth + 1, 

dt -> dt.nday. • 

dt -> dtjrear); 
1f (len > size) len « size; 
strncpy(*iest, wrkbuf. len): 
break; 

/* Formats the year In at least four digits. */ 
case T : 

len * sprintftwrkbuf. "XI4<r. dt -> dtjrear); 
If ( len > size ) len = size; 
strncpytdest. wrkbuf. len); 
break; 



*/ 



/* Fornat the year without the century. 
/ nt, " ' , " t 

case *y' 

len ■ sprintftwrkbuf. *X92d\ 

dt -> dt_year X 180): 
1f ( len > size ) len * size; 
strncpytdest, wrkbuf. len): 
break; 



H **** * * * * * ****** * ******-**-****************** * * * *} 

I* User My want a X character in the output. */ 
I *****-****-******+***********+*-****+*++**** * *. * ** »( 

case '%' : 
len = 1: 

if (len > size) ten ■ size; 
else *dest * 'X'; 
break; 

) /* Switch */ 

sre +» 1; 
rv +* len; 
dest +» len: 
size * s len; 
) /* while */ 

) 

if ( size ) *dest • 
return rv; 



) 

/* End of File */ 
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i 

if < conparef wrkbuf. nonths[nonth}, len ) «» I ) 
break; 

) 

if ( nonth == 12 ) return (date.t) -1; 
break; 

case JUL DATE : 

len « strlent string ); 
If < len ■= 5 It len == 7 ) { 
len - e 3; 

sprintf(wrkbuf. "XXXddXXXdd". len. 3); 
1 * sscanf( string, wrkbuf. iyear. lyday); 
1f ( i 1= 2 ) return (date.t) -U; 
yday--: 

) 

else return (date_t) -1L: 
break: 

case 5YS0ATE : 

len * strlen( string ): 
1f ( len 8 M len « 6 ) ( 
len -» 4; 

sprintf(wrkbuf. "XIIdQlXXddXXXdd\ len. 2. 2); 
1 * sscanf( string, wrkbuf, iyear, laonth. Uday): 
1f ( 1 i* 3 ) return (date_t) -1L; 
nonth--; 

) 

else return ( date_t ) -1L: 
break; 

default : 

return (date.t) -11: 

) 

* *** **>» »«»»***» * ******************•*** *" ' " ***/ 

/* If the year Is a two digit year, adjust for the century */ 
. /* change. Anything less than 8a is considered to be In */ 
/* 21 st century . *J 

/ Mli»M*M.*li*^ lllllHllimillllllH!illli*«>»*~/ 

If ( year < 199 ) 

year += year < 89 ? 2999 : 1909; 

/* Setup and call lkdatet) to get t he sequential day nunber */ 
/ "" mt> " " ,,,u 

dt.dtjfear « year; 
dt.dt_nday ■ nday: 
dt.dtjrday * yday; 
dt.dt^nonth* wroth; 
rv - icdatet &dt ): 
return rv; 

) 

char •date_to_str1ng(char *buffer. date_t day. int type) t 

1nt size; 

struct dt *dt; 

char wrkbuf [2S], *fornat; 

wrkbufte} * '\ri 

size e si zeof (wrkbuf): 
switch ( type ) ( 

case GREGDATE : 
fornat ■ "Ix"; 
break: 

case HlLOATE 

fomat * Td/ta/XY-: 
break; 

case SPELLOATE : 

fornat * "Xd-Xb-XY": 
break: 

case JULDAU : 
fornat * n«j": 
break: 
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functions align themselves closely with the Standard C 
date/time functions: Since I designed the three extended date 
functions to work with these new date functions, it should be easy 
to adapt the extended functions to work with the Standard C func- 
tions. One drawback to the date routines results from the unit of 



An Extended Date Library for C 

measure being in days: The date values lose the ability to serve as 
tiraestamps. However, in many cases, the increase in range more 
than compensates for the loss of precision. □ 




/* Extended Oate functions 

/* 

/* (c) Copyright 1993 ty Stan Milai 



»#**#**»#**** 




date_t to_date( char *string, 1nt type ) { 
date t rv; 

struct dt dt = { 9, 0, 0. f. I. ft): 
1nt len, 1, nday. yday. nnth, year; 
char vrkbuf[16]. "nonths = fulljonth; 

year » month » yday * nday » 0; 
switch ( type ) { 

case OOHKCCTY : 

1 » jscanft string. "X2dX2dX4<r, lad ay. &nonth. 
iyear); 

If ( 1 l» 3 ) return (date_t) -11; 

■onth--; 

break; 



case WDOCCYY : 

1 « sscanf( string. "X2dt2dX4d". iwnth. Uday, 
(year); 

If ( i != 3 ) return (date.t) -1L; 

nonth--; 

break; 

case GREGOATE : 

1 * sscanf(string. 1dX*cldX*rtd" ( ieonth. today, 
iyear); 

if I 1 i* 3 ) return (date_t> -It: 

uonth-*; 

break; 

case MILDATE : 

1 * sscanf(str1ng,"XdX*cXdX*cXd".liiday. taonth, iyear); 

If ( 1 !« 3) return (date_t) -1L; 

nonth-*; 

break; 

case SPELLOATE : 

1 * sscanftstrtng. TWX*cX3cX*rtd". &nday # wrkbuf . 
Iyear): 

1f (1 !« 3) return (date_t) -1L; 

for (nonth « I. len ■ 3: nonth < 12; nonth++) { 
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BGI SVGA Video Driver Toolkit New Toolkit! 

Provides Super VGA driver support at up to 1260x1024x256 for most popular SVGA 
cards using the Borland BGI graphics library. Support for graphics mode mouse 
and multiple video pages. Inportfexport popular bitmap file formats. Supports 
Borland DOS language compilers in real and protected mode. $129.99 w/source. 



BGI Font Toolkit 



New Toolkit! 



Complete replacement for the graphics text functions in the Borland BGt graphics 
library. Corrects bugs in BGI text functions, allows arbitrary rotation, holding, 
underlining, and italicizing of BGI fonts. Supports additional bitmap font formats for 
filled font rendering. Works with any BGI video or hardcopy driver. Supports 
Borland DOS language compilers in real and protected mode. $89.95 w/source. 



BGI Printer Driver Toolkit 



New Version! 



Provides drivers for Borland's BGt graphics library to support a wide variety of 

E rinters. plotters, and bitmap file formats. Support for EMS/XMS. Print popular 
itmap file formats. Extensive color device support Not a screen dump - toad our 
drivers with BGPs initgraph and get full output device resolution. Supports Borland 
DOS language compilers in real and protected mode. SI 29.95 w/source. 

BGI For Windows Port DOSBGI Code to Windows 

Gives you an interface to the Windows 3.x GDI compatible with Borland BGI 
graphics calls. Port your DOS BGI graphics code effortlessly to Windows. Full 
support for 256 color palettes. BGI stroke fonts, high resolution displays, and 
rasterized hardcopy. BGI extensions support TrueType and 24 bit color. Supports 
Borland Windows language compilers $129.95 w/source. 
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Event Timing and Scheduling 



Brings microsecond resolution timing to your DOS application with extensive 
functions for timers, delays, alarms, timer tick management, and thread 
scheduling Ideal for execution profiling data acquisition, and process control. 
Supports Borland DOS compilers, MSC/0+, Intel 366 CB, Zortech, $69.95 
w/source. PC Timer Objects for C++ and Turbo Pascal OOP - $89.95 w/source. 

All toolkits include The Official Fine Print 

complete source (in both C and Turbo Pascal), obiect/driver/DLL distribution 
license, and our 30 day "Mo Questions Asked" return policy. Add $5 shipping USA, 
$10 elsewhere. VISA. MasterCard, and American Express accepted. Our toolkit 
code is found in a wide variety ot commercial and private applications in daily use 
by over 100,000 end users 

Ryle Design 

Purveyors of Big Science since 1987 
PO Box 22, Mt. Pleasant, Ml 48804 USA 
Voice/Fax: 517.773.0587 CIS: 73047,1765 

■Demos and spec sheets available on our BBS: 517.772.2393 
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An Extended Date Library for C 



Listing 6 continued 



case SYSDAFE 

format * "XYteXd": 

break: 



case ODKHCCYY : 

forwt * -MXaXY-; 
break: 

case KWOCCYY : 
format * "IuHXt"; 
break: 

default : 
forwt = HULL: 



} 



If ( forwt != NULL ) ( 

If ({ dt » locatdate( May )) I- NULL ) 
strfdateUrkbuf. size, forwt. dt): 

J 

return (strcpyfbuffer. nrkbuf)); 



char *to_char(char *buffer. date.t day. int type) { 
return date to_str1ng( buffer, day. type): 

} 

date.t next_day_of_week( date_t value, int day ) ( 

date_t rv; 
struct dt *dt: 



/* See If we have a valid date value. 



*/ 



if ( (dt = locjldatet (value )) « NULL ) 

rv = (date.t) -1L: 
else if ( day < SUNDAY II day > SATURDAY ) 

rv * (date.t) 1L; 
else ( 

j mm*t«H»* *« « tt«« t« K «i « < <t« « « t«««** **** *-* ********** i 

/* Compute how aany days until the next sped fed day of*/ 
/* the week. Hake sure we are within our lUits too. */ 



/ 



********* ********** #*#*****< 



t ****** ******** i 



rv « (date.t) 7 - dt->dt_wday ♦ day: 

1f ( rv > (date.t) 7) rv -= (date.t) 7; 

rv = rv + value > HAXOATE ? (date.t) -1L : rv + value; 



return rv: 



) 



date.t previous_day.of_week( date.t value, int day ) { 

date.t rv; 
struct dt *dt: 



tiftift^ftflftft ft A ft A t A ft ^ A ft i A ft ft ft ft 

/* Check for a valid date value. 
y****» ********** 

if ((dt « localdate( lvalue )) « NULL) 

rv * (date.t) -1L; 
else 1f ( day < SUNDAY || day > SATURDAY ) 

rv « (date_t) *1L; 
else { 



/ 
*/ 



* ' """" ' "V 

/* Compute the date value for previous specified day */ 
/* and do sanity check, */ 
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Learn how to: 

* Engineer applications 
to minimize costs 

• Manage all six phases 
of the software llfecycle 

i 

* Use recursion in the 
object-creation process 



USE RECURSION FOR PRECISE 
DESIGN MANAGEMENT 

This book demonstrates object-oriented 
principles tor each phase of development, 
from specification through maintenance. A 
comprehensive example coded in C++ ties 
the demonstration together. For precision, 
the design method is presented in a 
pseudocode recursive algorithm. 

ORDER TODAY! 
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913-841-1631 
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Real-time Multi-tasking 

Full C source Code Included : v' 



The Tics Realtime multi-tasking kernel is a linkable C library that 
allows C functions to run as preemptive concurrent tasks. Developed 
for professional software developers who need a capable full-featured 
real-time multi-tasking development system. Tics can run with MS- 
DOS or stand-alone on an embedded target. No royalties. Tics also 
includes a multi-tasking COM port library for multi-tasking serial 
communications. 



• C source code is included - fully docu- 
mented and complete 

- Includes our new book The An of Real- 
time Programming". 

-Tics is written entirely in C and is portable 
to virtually any microprocessor. 

- Includes integrated COM port library for 
multi-tasking RS-232 applications. 

• The PC timer chip is rcprognimmed to 
user specified granularity. 

- Preemptive, cooperative. 01 time-sliced 
scheduling, configurable on a task by taste 
basis. 

No restriction on the number of tasks. 

Stack size is variable on a task by task basis. 

Priorities can be changed dynamically. 

Tusks may be created dynamically. 

The development system also includes 
TinyTici, a smalt round robin kernel thai is 
ideal for micro-controllers. 

Iks requires less than SK bytes of code 
sp:K'c and is ROMable. 

Three types of high speed timers: in-line 
pause, one- shot timers, and lime critical 
periodic timers. 



- Differential timer management system al- 
lows for an unrestricted number of concur- 
rent timers without increasing time spent 
in the timer isr. 

- Inter-task communication using message 
queues or high speed mailboxes. 

- Critical region management 

- High speed memory management system. 
Unrestricted number of memory pools. 

- Priorities on tasks and messages provide 
great flexibility. Priorities on messages 
means that high priority messages go 
straight to the front of the queue. 

• Optionally, cooperative tasks may share a 
common stack so th;it hundreds of tasks 
can run with (he overhead of a single stack. 

• Object oriented Create task instances 
with their own separate instance data. Can 
run with C + + for real-lime OOP. 

- Messages or mail can be sent from within 
an isr. 

• Time out option while waiting for a mes* 
sage. 

- Includes manual und source code for 
sample applications that include dials, 
gauges, data acquisition, display, and more. 
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Extended Date Library for C 



Stan Milam 



. Listing 6 continued 



rv » (date.t) day * dt->dt_wday: 

If ( rv >« (date.t) t ) rt - (date.t) 71; 

rv ♦* value; 

If ( rv < (date_t) 1L ) rv « (date_t) -1L; 



return rv; 



) 



date_t lastjlay.of.nontht date.t value ) { 
date.t rv; 

struct dt *dt * localdatet lvalue ): 



t******** ***** * **i 



■****/ 

/* See 1f date value was valid. */ 

f **** * **** * * * 1 M * * ** f iMi >*i*+**»^***+*+»*»****+ ********** f 



If ( dt « NULL ) 

rv * (date.t) -U; 
else ( 



t****** * **** **** ******* * ** * ** * * f 



/* Deternlne last day of the nonth. coupute the diffe- */ 
/* rence and add to the date value. * / 

ft************ * ***** * * * * ** **** * ****** * ** ** *** ** * ******** f 

n « north tablet dt -> dt.nonth ]; 

If ( dt -> dt_nonth « 1 ) rv +* dt -> dtjeapjrear; 

rv * rv - dt *> dt_uday + value: 



) 

return nr; 



) 



date.t first_day_of_nonth( date_t value ) { 
date_t rv; 

struct dt *dt - local datet lvalue ); 



BASIC to C++ 



B2CPP translates BASIC source code to 
C++ source code. But this is just a begin- 
ning. The translated C++ source code is 
structured even if the original BASIC source 
code is spaghetti code. Variables are scoped 
to local or global depending on their usage. 
Dead code and variable are eliminated. 
String and array class, overloaded function 
increases readability. Many options for dif- 
ferent needs. Free demo disk is available. 

Gotoless Conversion 

7105 Dee Cole Drive 
The Colony. Texas 75056, U.S.A. 
(800) 617-2323 Voice 
(214) 625-2323 Voice 
(214) 370-2612 Fax/BBS 



rv * ( dt « NULL ) ? -U : (date.t) 1 - dt > dt.nday + value: 
return rv; 



} 



date.t coapute.datet date.t value, Int years. Int nonths. int weeks. Int days) ( 



date.t rv: 

int Idl. Id2; 

struct dt *wrk: 



/* Return value */ 

/* Last days of nonths */ 

/* A date structure */ 



wrk * loealdatet lvalue ): /* Get a date structure */ 

1f ( wrk « HULL > return (date.t) -1L: 

I ********************* ******************** ****************** i 

/* Go ahead and coupute the weeks and days. */ 
j****t *** * ********************************** ****************/ 



rv = (weeks * 7) + days; 



t **************** 



****** ********** 



/* Now conpute the nonths. We nay have to adjust the years*/ 
/* value. */ 

+w+ i** 1 l iHtw iti tinu t iiwiwiitfjt itnimiii ti wygwwwwwai / 

if ( nonths ) ( 

1f ( abs(nonths) > 11 ) { 
years nonths / 12; 
nonths s nonths 1 12; 

) 

ft** ** * * **** * ******************************************* l 

/* Now coupute the target nonth and handle wrap-around. */ 

ft*** * ** *** * * *** *** ******** * ** *** * * ** **** * **** * * ** * *** * */ 

nonths ♦= wrk -> dt_nonth: 
If ( nonths < • ) ( 

nonths +* 12: 

years +* -1; 

) 

else If ( nonths > 11 ) { 
nonths -« 12: 
years +« 1; 

) 

/* Km we have to sake adjustment 1f we are on the last*/ 
/* day of the nonth. for Instance if date is 31 Hay */ 
/* and we add 1 nonth the result should be 36 June. */ 

fir*************************** ** ******** * ****************/ 

ldl a nonth.tablefwrk ->dt_nonth]: 

if ( wrk->dt_nonth « 1 ) ldl wrk->dt_leap_year: 

1f ( wrk-)dt_nday « ldl ) ( 

1d2 ■ nonth.tablef nonths}; 

if ( nonths « 1 ) ld2 +* 

1s U.a.l eapjreartyea rs + wrk->dt_year); 

If (ldl > ld2 ) wrk->dt.nday = ld2: 

) 

wrk->dt_nonth = nonths; 



wrk->dt_year +° years; 

j *********************** ************************************ / 

/* The following 1s a fixup in case we started on Feb 29 */ 
/* and we are cocputlng into another year. */ 
I ********************************* ************************** / 

ldl « nonth_table[wrk->dt_nonth]; 
if ( wrk->dt_nonth == 1 ) ldl +=* 

1 s_i t.a.1 eapjrear ( wrk - >d t_yea r ) : 
if (wrk->dt_nday > ldl) wrk >dt_nday * ldl: 



I ************************************************************ / 
/* Call nkdated to do the work. V 

^******************************* *********** ****************** j 

rv +* nkdatet wrk ); 
return rv; 

) 

/* End of File */ 
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TEMPUS FUGIT... 

Today is the first day of 
the rest of the millennium. As 
we go to press (or copy ma- 
chine, if you prefer) there are 
only seven years and a few days 
remaining until the first day 
of the next one. 

Hello, and welcome to the 
first issue of TICK, TICK, 
TICK, . . . . It is meant to be a 
forum for people in the Infor- 
mation Services industry 
concerned about the impact of 
the year 2000 on the Informa- 
tion Services industry. It 
will be distributed free of 
charge to everyone who contrib- 
utes material we can use. 

These pages are open to 
all who have something to 
share, and that includes ven- 
dors. As a general policy, we 
will not identify contributors 
unless they have allowed us to 
do so or they are vendors. If 
you want to get in touch with 
the author or subject of an 
article appearing here, just 
give us a call. 

At this point most of you 
are probably asking yourselves 
why you ' ve gotten this issue . 
After all you didn't send in 
anything we could use, so 
you're not entitled to it. 
And you ' d be right . But be- 
cause you've let us know you're 
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concerned about the millenn- 
ium's effect on computers that 
makes you too valuable to just 
slough off. 

Perhaps you didn't send 
anything because you've been 
too busy. Or maybe you weren't 
sure what we wanted. Or it 
might be the muse hasn't struck 
yet. Whatever your reason, 
this issue is on us. If you 
like it, maybe you'll submit 
something so you can keep get- 
ting it. But if you're still 
suffering from "writer's 
block," we'll give you yet an- 
other chance. The last two 
pages of this issue contain a 
questionnaire. If you fill it 
out and mail it to us, we'll 
send you the next issue. After 
that, we're not sure, but we'll 
come up with something. 

To make everything clear 
and to relieve some anxieties 
as to who is officially a 
subscriber we have listed below 
the names of all those who hold 
subscriptions . 

SUBSCRIBERS: Willy Wilson, John 
Leatherman, Robert Wachtel, 
David Brask, Bill Woolfolk, Bob 
Hartman-Berrier , Brian Pitts , 
Richard Langston, Michael 
Murray, Gordon Parnell, Janet 
Butler, Lech Lesiak, Mickey 
Williamson and Lilian Woolmer. 

The reason we don't have 
paid subscriptions is that we 
don't want to do all the book- 
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keeping and the renewal 
letters, etc. Anyway we don't 
intend to do all the work 
ourselves. We like to think of 

TICK, TICK. TICK... as a 

clearinghouse for other peop- 
le's material. Since we can 
only lure your submissions with 
our subscriptions, it doesn't 
seem fair to give them away to 
those who haven't contributed. 

c 

We have received some 
amusing and chatty letters but 
unfortunately some of them had 
nothing we felt would add to 
our readers knowledge. Putting 
the kibosh on someone's efforts 
does not appeal to us, and we 
consider it an unpleasant task. 
Nevertheless, as editors our 
first duty is to our readers . 

So please don't send in 
any more stuff explaining the 
history of the Julian or Gre- 
gorian calendars. That's a 
dead issue. Also, please do 
not lament the lack of fore- 
sight on the part of our 
predecessors (many of whom are 
still around and might even be 
readers). We all know what 
went wrong. 

TABLE TROUBLES 

Although we are concerned 
chiefly with the year 2000, we 
want to hear about other kinds 
of date problems as well, e.g. 
leap year, end-of -decade, leap 
seconds etc. We are well aware 
of the Big Problem facing two- 
digit year fields , but we ' re 
just finding out about the new- 
er ones that are popping up in 
the latest software. For in- 
stance, in the February 3,1992 
issue of CQMPUTERWORLD there is 



an item about IBM's release 4.2 
of the RESOURCE MANAGEMENT FA- 
CILITY which prints statistical 
reports of computer use. They 
apparently switched the days 
for February and January so 
that January got 29 and Febru- 
ary got 31. As of January 30 
all reports were off by two 
days. While not critical, this 
is the sort of thing that could 
add to the confusion when we 
come to that big date change. 

We once found out about an 
end-of -decade problem in the 
Paradox User's Journal. And 
the following comes from the 
November 17, 1992 edition of 
the Wall Street Journal: 

TANDEM TANTRUM 

H A glitch that suddenly 
appeared around the world in a 
line of supposedly fail-safe 
machines from Tandem Computer 
Inc. forced the company to rec- 
ommend an embarrassing remedy: 
Unplug the machines . " 

The bug appeared in New Zealand 
at 3 PM on November 1, when the 
computer suddenly told its op- 
erators that the current date 
was December 1, 1983. It then 
worked its way west knocking 
out a cellular phone company's 
computer in Stockholm for nine 
hours, and causing a Harris- 
burg, Pa. newspaper to print 
only one of its three editions 
for the day. The problem was 
faulty software, and the compa- 
ny said it only affected its 
five-year-old Nonstop CLX mini- 
computers, of which they had 
sold about 2500. A newer ver- 
sion that had been introduced 
in 1991 was not affected. 
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Tandem expects to have another 
version of the software ready 
in 1993 that will resolve the 
matter. If the users do not 
bother to install it, then 
sometime in 2001 the computer 
will decide the date is Novem- 
ber 1, 1992, which is when this 
happened the first time. 

We like items like this which 
show the fragility of date 
routines around the world. e So 
if you see one and send it in, 
there's a subscription waiting 
with your name on it. 

HERE'S ONE ALTERNATIVE DATE 
METHOD... 

In 1989, we attended the annual 
meeting of the Software 
Maintenance Association in 
Atlanta. An Information Systems 
executive from Coca-Cola was 
the keynote speaker, and during 
the question period we asked 
him what he was going to do 
about the year 2000. He 
replied that he hoped to be 
retired. In fairness, we were 
speaking from the back of the 
room and he probably didn't 
hear our question clearly. 
When someone up front clarified 
it for him, he admitted they 
hadn't done much thinking about 
it. We mention this incident 
because afterwards Rick 
Langston of the SAS Institute 
told us he was doing something 
about the year 2000, and was 
glad to meet someone else 
interested in the problem. His 
was the first reply to our 
request for articles, so we are 
pleased to let it lead off. 
"I have been responsible for 
maintaining the date-time 
algorithms for our software, 



the SAS System, which is a 
large-scale Information Deliv- 
ery System used in over 10,000 
sites around the world. Within 
the user's programming language 
aspects of our system, we pro- 
vide a wide range of date, 
time, and date-time 'informats' 
to read in data inf ormation,, 
and 1 formats' to write out dif- 
ferent representations. We use 
a base date of January 1, 1960, 
and use a date count (positive 
or negative) from this base for 
our *SAS Date value' and a sec- 
ond count (positive or negati- 
ve) for our "SAS Datetime val- 
ue. ' This method helps to 
avoid most problems concerning 
the transition to the 21st cen- 
tury. However, our users can 
read in character strings in 
MMDDYY or YYMMDD representati- 
ons in which only two-digit 
years are seen. In order to 
properly determine the century 
for a two-digit year, we pro T 
vide an option called YEARCUTO- 
FF. , This option is set to the 
year that is the first of a 
100-year cycle to use in deter- 
mining the proper year to match 
with a two-digit year. For 
example, if YEARCUTOFF= 1980, 
this means that the two-digit 
years of 80 through 99 will 
correspond to 1980 through 
1999, while the two-digit years 
00 through 79 will correspond 
to 2000 through 2079* Our cur- 
rent default value f or YEARCUT- 
OFF is 1900, but we will proba- 
bly change this to a value like 
1910 with our next major relea- 
se. Of course, we recommend 
that our users begin changing 
their data files and programs 
now to avoid two digit years 
that need to be input into pro- 
grams . " 
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AND HERE'S ANOTHER 



ter to 
WORLD 

ating 
format 
starti 
Feb. 1 
Jan . 1 



n a similar vein, a let- 
the editor of COMPUTER- 
speaks of the Pick oper- 
system which uses a date 
based on the days from a 
ng point of Jan. 1, 19 68. 
, 1991 would be 8433, and 
, 2000 will be 11689. „ 



We know there are other 
methods for pseudo dates and 
we'd like to hear about them. 

A PROPER PROPOSAL 

Last August a man from a 
manufacturing company called us 
to say he had been put in 
charge of preparing their cor- 
porate systems for the year 
2000 and he was looking for 
help, particularly software 
tools. He and his team had 
been working on this project 
since last February, meeting 
for two hours every week. 
Their conversion task seemed 
awesome because the company has 
1300 programs and 150 databases 
(although some of them had only 
a date record). He had esti- 
mated it would take 30 man- 
years to complete, and figured 
the cost at $1,500,000. He had 
called other companies to find 
out what they were doing and 
was dismayed to find out they 
were doing almost nothing. He 
said that most of the corpora- 
tions he had spoken to had 
pushed the task down to the 
division level and the people 
there seemed lost. 

We called him back in 
November to see if he had made 
the October deadline for sub- 
mitting his recommendations to 
management. He replied that he 
had, and he was happy to share 



them with us : 

1. Establish standards for 
date storage and usage. 

2. Get a COBOL compiler with 
a four-digit year. They cannot 
enhance their current compiler 
but IBM has two with four-digit 
years . 

3. Use a data analysis or 
reengineering tool to reduce 
profusion of data names. This 
would reduce the time and scope 
of effort , and improve the 
quality of effort. (They did 
not recommend a data dictionary 
for company reasons). 

4 . Develop date conversion 
modules for interim support for 
CCYY. (CC stands for the 
century - ed.). This will 
limit the extent of cross- 
system changes until that 
effort is justified on 
mainframe applications. 

5. Use the Life Cycle ap- 
proach to install full support 
for CCYY. 

6. Examine systems, identify 
when they will "go critical", 
prioritize and set up a time- 
table. 

And above all, once the 
plans have been set, follow 
through. 

He also included a copy of 
a page from their Policy & Pro- 
cedures manual pertaining to 
Internal Control Formats. It 
states that dates may be in 
alpha or numeric format , but 
"If the numeric format is used, 
it MUST (emphasis his - ed.) be 
stored as an unsigned numeric 
field. The use of packed or 
signed zone decimal data for- 
mats is not permitted. This is 
because of the increased use of 
distributed processing, which 
in turn, requires that ASCII 
data representation be used." 
He pointed out that downloading 
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from mainframe to PC cannot 
handle EBCDIC's COMP-3 (PACKED) 
or signed zoned format. 

...8, 9, 10, THEN WHAT? 



A letter from a respondent 
in New Jersey included a copy 
of an article from The New York 
Times about the Gregorian cal- 
endar. An interesting article, 
but what really piqued our in- 
terest was his remark, "Where I 
am now has problems when the 
decade changes, never mind the 
century." We sent him a note 
asking him to elaborate on his 
problem. 

ONE MAN'S OPINIONS 

The writer from a one-man 
shop in Ohio says he is in good 
shape because he doesn't have 
that much source code and the 
"system is fairly well docu- 
mented." He tells us that IBM 
has addressed the problem of 
the four-digit year in the 
AS/400, and that they have 
apparently come out with a 
value added software package 
for the S/36 which will take 
care of it there also." 

He proposes two solutions 
for the rest of us: "Probably 
the best long-term solution is 
to replace all occurrences of a 
two-digit year with four 
digits"; and "Allow the 

existence of a 2-digit year in 
the database, but modify it by 
subroutine on file I/O to a 4- 
digit program field - 50 thru 
99 are twentieth century, 00 
thru 49 are twenty-first. 
Granted this only works up to 
2049, but (i) we'll all have 
new computer systems in fifty 
years, and (ii) I'll be dead by 
then. . . " 



So there you have it, the 
yin and the yang of millennium 
maintenance. The thoroughly 
professional approach versus 
something bordering on the 
"quick and dirty". 

It's our impression that 
many people are currently look- 
ing to the simpler solution for 
their salvation, but we feel 
most will come around to the 
more formal approach after they 
have investigated further and 
gotten an eyeful of all those 
worms. We'd like to get your 
opinion on this. 

THIS MAN WANTS IDEAS... 

Brian Pitts is the Project 
Manager of Systems Support for 
the Berry Company in Dayton, 
Ohio. His group is responsible 
for the maintenance and support 
of some of their oldest and 
most used application systems . 
They have been kicking around 
ideas such as system rewrites 
and conversions to 4-digit 
years, but have made no plans 
to start on the process . He 
would like to exchange ideas 
with others in a similar 
situation. His phone is 513 
296-4899, and his FAX is 513 
296-2259. 

...AND THIS ONE WANTS TOOLS 

We have received a letter from 
a medical care company saying 
they have started the ball 
rolling by retaining an outside 
consultant to assist them in 
the final planning phases of 
their Date and Medical Record 
Number Expansion Project. They 
have 15 date processing 
subprograms which perform some 
rather esoteric date calcula- 
tions. In addition to convert- 
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ing Julian to Gregorian (and 
vice-versa), they check to see 
if a date is on a holiday cal- 
endar, calculate the work days 
between two Gregorian dates 
excluding holidays and weekends 
etc . All of their programs 
require and produce year data 
containing 4 digits . Right 
now, they are keenly interested 
in "the identification and fea- 
sibility of any software 
tool(s) which can help isolate 
lines of code (primary, second- 
ary and tertiary) that will 
require modification." 

We don't think we should 
identify the company or indi- 
vidual for two reasons: We 
don't think he wants to be as- 
sailed by salesmen, and we want 
to know what's going on out 
there too. So if you have a 
tool to promote, help us share 
it with everyone. 



SOME SIMPLE SUGGESTIONS 

BobWachtel, a maintenance 
consultant from Occidental, 
California sends along these 
suggestions: "I have made this 
rather simple practical 
suggestion to clients and 
colleagues: Each time a program 
is examined during maintenance 
and some potential Year-2000 
problem is encountered, save 
the information in a small 
database. For example, Data- 
Name, Line Number pairs would 
identify such problem areas . 
Later, through use of a cross 
reference, other statements 
using that Data-Name can be 
easily located. This is not a 
definitive method, but such a 
database can provide concrete 
information on the scope and 
severity of the Year-2000 
problem for a given program. 



"I've also recommended the 
use of what I call an Analysis 
Database for maintenance. This 
associates a Change Number, 
Sample Test Conditions and 
Cases, and Program Location 
where the change applies. This 
could be easily extended to 
include Year-2000 problem 
information as described 
above . " 

FORESIGHT BEATS HINDSIGHT 

David Brask from Brask Tech- 
nologies out in Illinois is 
feeling right proud of himself. 
He writes: 

" Starting in 1983 I adopted 
year 2000 opt imi sm : I as sumed 
every program would still be in 
use by the year 2000. All pro- 
grams since that time have had 
8 digit dates. Formatting is 
nn/nn/nn but internally the 19 
is carried for comparisons. 
Currently the date routine used 
forces a 19 and will need to be 
upgraded to choose 19 or 20. 
Primary software is now in 500 
different companies worldwide 
so I am glad I planned ahead to 
avoid the need for a conver- 
sion. N 

IN OUR NEXT ISSUE: We'll review 
a software tool called the 
General Purpose System 
Analyzer (GPSA) ; tell you what 
some Canadians have been doing 
to prepare themselves for the 
Big Day; and report the results 
of our survey. 
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SURVEY 



IS IS TO RESEARCH THE EXTENT OF PREPARATIONS FOR THE TEAR 2000 
I0N6 THE RESPONDENT SHOPS. THE RESULTS HILL BE PUBLISHED IN THE 
;XT ISSUE OF TICK, TICK, TICK. . . . NO COMPANY OR INDIVIDUAL WILL 
IDENTIFIED IN THE REPORT. NO SALESMAN KILL SEE OR GET THIS 
[FORMATION. 



yffi: 



TLE: 



INDUSTRY : 



IMP ANY : 



HARDWARE : 



(DRESS: 



OPERATING SYSTEM: 



[ONE: 



HAS YOUR SHOP STARTED TO WORK ON THE YEAR 2000? 



IF YES, WHEN DID YOU START? 



IF NO, WHEN WILL YOU START? 



HOW MANY BATCH PROGRAMS WILL YOU HAVE TO MODIFY? 



DATABASES? 



ONLINE PROGRAMS? 



HOW MANY PROGRAMMERS AND ANALYSTS ON STAFF? 



HOW MANY PEOPLE-YEARS (used to be MAN-YEARS) DO YOU THINK IT 
WILL REQUIRE TO FIX EVERYTHING? 



HOW DO YOU INTEND TO STAFF THE PROJECT? 



WHAT DO YOU THINK WILL BE THE EASIEST PART OF THE PROJECT? 



9. WHAT DO YOU THINK WILL BE THE MOST DIFFICULT PART? 



10. WHEN DO YOU EXPECT TO BE FINISHED? 

11. OF THE APPLICATION PACKAGES YOU ARE NOW RUNNING, WHICH WILL 
NOT HANDLE 1/1/2000? ' ; 



12. DO YOU INTEND TO REPLACE THESE PACKAGES, MODIFY THEM YOURSELF 
OR HAVE THE VENDOR FIX THEM? 



13. CAN YOU DESCRIBE YOUR APPROACH TO THE PROBLEM OF THE 
TWO-DIGIT YEAR? " 



14. DO YOU SEE ANY PROBLEMS UNIQUE TO YOUR SHOP OR INDUSTRY? 



15. DO YOU EXPECT TO PURCHASE PROGRAMMING TOOLS SPECIFICALLY TO 
HELP YOU WITH THIS PROBLEM? WHAT KIND? ■ 



16. WHAT DO YOU THINK YOUR BUDGET WILL BE? 

17. ANYTHING YOU WOULD LIKE TO ADD 



PLEASE MAIL THIS TO: TICK, TICK, TICK... 

2 GRACE COURT 2-U 
BROOKLYN, NY 11201 





ITS NOT WHETHER YOU 




IPN Home | Search | Order | Shopping Cart 



Title: 

Index terms: 
Text 




May 1986 ... IBM TECHNICAL DISCLOSURE BULLETIN ... 

Date Adjustment At Turn of Century 

Programming 



The date is a frequently used item in data processing. The date is 
typically stored in a format where the year is a two-digit number with 
the high order digits truncated since they have always been "19". 
When the year 2000 arrives, havoc is threatened. 

Normally, the date is compared internally using a YYMMDD or 
YYDDD format. When comparing dates of like format, the date 
which generates a "high" condition code setting is considered the 
most recent date. After 1999 that will not necessarily be true. 

Every component which ever uses the date for purposes of 
deciding a "most recent" situation, must use a simple adjustment 
factor. That factor would be fixed at each IPL. would be a two-digit 
unsigned number... AA - YY where YY is the low order two digits of 
the current year and AA is an adjustment value with a default of 50. 
A negative result mus complemented. Using 50 makes 50 years in 
the past least recent and 49 years in the future most recent; 
assuming that all of the years fit within the 1 00 year span. 

In 1984, the adjustment would be 50 - YY =-33, or 67 
complemented. Comparing 1983 vs 1984 would be (83 + 67) vs (84 
+ 67) or 50 vs 51. 51 is high and, therefore, 1984 is most recent. 

If the above were modified using 10 to compute adjustment 
factor, the comparison result would be the same with 1 0 - YY = -73 
or 27, when complemented, being used for adjustment. 

The example which best demonstrates the need for the 
adjustment is at the onset of the year 2000. Assume that the 
computer was IPL'd on the last day of 1999 and that there are two 
dates which may be only minutes apart in their creation, with one 
before midnight and the other afterward. The normal date 
comparison would result in December 31, 1999 being regarded as 
the most recent date for deciding which resource to use. Assume 
the dates are stored as (YYMMDD) 991231 and 000101. It is 
obvious that January 1 , 2000 is most recent, but the old comparison 
implementation doesn't work. 

Since the year is hypothetical^ now 2000 and 1999 was entered 
at the last IPL, the adjustment factor is 51; using 50 - 00 (1399) =-49 
complemented. Year 00 becomes 51 and year 99 becomes 50 so 
that the comparison shows high for actual year xxOO; therefore, it is 
most recent. 

What the adjustment number really means is how many years 
back or forward to go with valid years. The number 10, which 
produces the adjustment factor 27 in 1983 gives an effective range 
of years from 1 973 to 2072. For all years except the current and the 
next year to be in the past, 98 is used. Using 98 in 1983, the 
adjustment factor would be 15. Thus, 1983 would adjust to 98 and 
1984 becomes 99 - the range being 1885 to 1984. 

It may be important to note that only the working versions of the 
dates, at the time that they are being compar are ever modified. 
They would continue to be stored and displayed in the familiar 
formats. 
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The date is a frequently used item in data processing. The date 
is typically stored in a format where the year is a two-digit number 
with the high order digits truncated since they have always been 
"19". When the year 2000 arrives, havoc is threatened. 

Normally, the date is compared internally using a YYMMDD or 
YYDDD format. When comparing dates of like format, the date 
which generates a "high" condition code setting is considered the 
most recent date. After 1999 that will not necessarily be true. 

Every component which ever uses the date for purposes of 
deciding a "most recent" situation, must use a simple adjustment 
factor That factor would be fixed at each IPL. would be a two-digit 
unsigned number...AA - YY where YY is the low order two digits of 
the current year and AA is an adjustment value with a default of 50. 
A negative result mus complemented. Using 50 makes 50 years in 
the past least recent and 49 years in the future most recent; 
assuming that all of the years fit within the 100 year span. 

In 1984, the adjustment would be 50 - YY =-33, or 67 
complemented. Comparing 1983 vs 1984 would be (83 + 67) vs (84 
+ 67) or 50 vs 51 . 51 is high and, therefore, 1984 is most recent. 

If the above were modified using 10 to compute adjustment 
factor, the comparison result would be the same with 10 - YY = -73 
or 27, when complemented, being used for adjustment. 

The example which best demonstrates the need for the 
adjustment is at the onset of the year 2000. Assume that the 
computer was IPL'd on the last day of 1999 and that there are two 
dates which may be only minutes apart in their creation, with one 
before midnight and the other afterward. The normal date 
comparison would result in December 31, 1999 being regarded as 
the most recent date for deciding which resource to use. Assume 
the dates are stored as (YYMMDD) 991231 and 000101. It is 
obvious that January 1 , 2000 is most recent, but the old 
comparison implementation doesn't work. 

Since the year is hypothetically now 2000 and 1999 was entered 
at the last IPL, the adjustment factor is 51 ; using 50 - 00 (1999) =- 
49 complemented. Year 00 becomes 51 and year 99 becomes 50/ 
so that the comparison shows high for actual year xxOO; therefore, 

it is most recent. 

What the adjustment number really means is how many years 
back or forward to go with valid years. The number 10, which 
produces the adjustment factor 27 in 1983 gives an effective range 
of years from 1973 to 2072. For all years except the current and the 
next year to be in the past, 98 is used. Using 98 in 1983, the 
adjustment factor would be 15. Thus, 1983 would adjust to 98 and 
1984 becomes 99 - the range being 1885 to 1984. 

It may be important to note that only the working versions of the 
dates, at the time that they are being compar are ever modified. 
They would continue to be stored and displayed in the familiar 
formats 
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DOOMSDAY 2000 



by Peter de Jager 



pdej ager(5>,vear2000 . com 




The date change in the year 2000 - an event that may trigger fatal errors in mission-critical 
systems - is only 2,308 days away. Many IS people are unprepared or unconcerned. 



Have you ever been in a car accident? Time seems to slow down as you realize you're going to crash into the car 
ahead of you. 

It's too late to avoid it - you're going to crash. All you can do now is watch it happen. 

The information systems community is heading toward an event more devastating than a car crash. We are 
heading toward the year 2000. We are heading toward a failure of our standard date format: MM/DD/YY. 

Unfortunately, unlike the car crash, time will not slow down for us. If anything, we're accelerating toward 
disaster. 

This is a good news/bad news story. First the bad news: There is very little good news. There is no way to avoid 
the fact that our information systems are based on a faulty standard that will cost the worldwide computer 
community billions of dollars in programming effort. 

Perhaps more importantly, we are going to suffer a credibility crisis. We and our computers were supposed to 
make life easier; this was our promise. What we have delivered is a catastrophe. 

The problem is twofold: the date issue itself and, more importantly, our reluctance to address the problem. 



What exactly is the "problem"? To save storage space - and perhaps reduce the amount of keystrokes necessary 
to enter a year - most IS groups have allocated two digits to the year. For example, "1993" is stored as "93" in 
our data files, and "2000" will be stored as "00". These two-digit dates exist on millions of data files used as 
input to millions of applications. 

This two-digit date affects data manipulation, primarily subtractions and comparisons. For instance, I was born in 
1955. If I ask the computer to calculate how old I am today, it subtracts 55 from 93 and announces that I'm 38. 

So far so good. But what happens in the year 2000? The computer will subtract 55 from 00 and will state that I 
am -55 years old. This error will affect any calculation that produces or uses time spans, such as an interest 
calculation. 



Problem ID 



http://www.year2000.com/archive/NFcw-article.html 
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If you have some data records and want to sort them by date (e.g., 1965, 1905, 1966), the resulting sequence 
would be 1905, 1965, 1966. However, if you add in a date record such as 2015, the computer, which reads only 
the last two digits of the date, sees 05, 15, 65, 66, and sorts them incorrectly. 

These are just two types of calculations that are going to produce garbage. There are others. 

The task facing us is to identify and correct all the date data and check the integrity of all calculations involving 
the date information. We must correct the data residing in all data files or write code to handle the problem. 

The starting point 

How do we identify the problem data and the associated calculations? We have few, if any, standards for labeling 
data used in date calculations. The only choice we have is to examine each line of code and make the necessary 
changes. 

a 

One IS person I know of performed an internal survey and came up with the following results: of 104 systems, 
18 would fail in the year 2000. These 18 mission-critical systems were made up of 8,174 programs and data- 
entry screens as well as some 3,3 13 databases. With less than seven years to go, someone is going to be working 
overtime. 

By the way, this initial survey required 10 weeks of effort. Ten weeks just to identify the problem areas. 

How many systems do you have? How many lines of code do you have in your organization? How many data 
files? How many maintenance programmers? 

The problem extends beyond mere calculations and into the I/O processes of every application. Can you enter 
2000 into your data screen, or can you enter only two digits, forcing the input of 00? Can your hard-copy reports 
print four digits? 

The crisis is very real and potentially very costly. Ken Orr, principal at the Ken Orr Institute, and Larry Martin, 
president of Data Dimensions, Inc., estimate that Fortune 50 organizations will each have to spend about 35 to 
40 cents per line of code to convert all their existing systems to accept the change from the year 1999 to 2000. 

That translates into about $50 million to $100 million for each company. The mind boggles at a maintenance 
problem with that price tag. 

And the costs could be even higher. "The truth is, until we work through a complete cycle with some large 
organization, we are not going to really know," Orr says. 

I have spoken at association meetings and seminars, and when I ask for a show of hands of people addressing the 
problem, the response is underwhelming. If I get one in 10 respondents, I'm facing an enlightened group. 

Typically, all I get are snickers and comments such as, "I won't be in this position or this company in the year 
2000. It ! s not my problem." 

This attitude in the computing community is the real problem. It is very difficult for us to acknowledge that we 
made a "little" error that will cost companies millions of dollars. It is also a "pay me now or pay me later" 
situation. 

"We in the IS industry have not been paying our way," says Gerald Weinberg, author of Quality Software 
Management and winner of the 1991 J. D. Warnier Prize for Excellence in Information Science. "We have been 
building up a 'national debt 1 just as surely as the U.S. has been building up a money debt. It will be paid by our 
http://www.year2000.com/archive/NFcw-article.html 1/10/00 
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> We don't have a choice. We must start addressing the problem today or there won't be enough time to solve it. 
Status quo means applications that will produce meaningless results in the new millennium. 

Weinberg says he believes this procrastination is an indication of deep management malaise. "If software 
engineering managers cannot manage a change that they've had 1,000 years to prepare for, how can we expect 
them to manage a change that happens without notice? In other words, if this change causes a crisis in your 
organization, everything will cause a crisis in your organization - and often nothing will cause a crisis." 

The inability of the industry to even think about such a project is troublesome. "No one wants to step up to the 
issue - not [IS] management, not the vendors, not the industry gurus," Orr says. "As with all legacy systems, this 
problem is messy, expensive and unromantic. No one wants to go in and tell management they have a 
multimillion-dollar requirement just to keep the business running and that they really have no options." 

The reason that nothing is being done, says Capers Jones, chairman at Software Productivity Research, Inc., is 
that the software industry isn't used to taking long-term preventative steps. "I expect that most companies will 
not start worrying about the problem until 1999," Jones says. "For some, this will be too late." 

Now the good news 

There is good news. Object-oriented systems may be able to help. Faced with the huge maintenance costs of 
fixing their systems, firms may opt to rewrite systems from scratch using object-oriented programming * 
techniques. Tom Love, IBM vice president of the Object-Oriented Group, is a proponent of this theory. 

Some companies are unveiling testing and inventory tools that may ease the identification of trouble spots. 

Others are hoping that bombarding people with information is the best remedy. To that end, William Goodwin in 
Brooklyn, N. Y., publishes a newsletter entitled "Tick, Tick, Tick," which brings together people in the IS 
industry concerned about the impact of the year 2000. 

But is the warning falling on deaf ears? "I feel like a lone voice crying in the wilderness," says Brian Pitts, one of 
Goodwin's subscribers and a project manager at Berry Co. in Dayton, Ohio. "Current economic conditions are 
making this problem more difficult to address. Management is focused on short-term results and is placing long- 
term negative consequences on the back burner." 

The next seven years will be filled with dire predictions. "You are going to become very, very tired of millennium 
moaners telling you that your software will fail as it enters the new millennium," says Nicholas Zvegintzov, 
publisher of Software Maintenance News, "But be patient with them. There really is something to be said for 
them." 



Peter de Jager is a speaker on year 2000 computing issues along with the topics of change, creativity, and 
management technology. Speaking requests should be sent to bookings(a) { vear2000. com . 

To support Year 2000 awareness and education, Peter has authored a book, two video tapes, and an audio 
tape. Information on Peter's book, "Managing 00 : Surviving the Year 2000 Computing Crisis" is available 
from Amazon.com using this link 

Information on Peter's video tapes, "The Year 2000 Challenge: Can we fix it in Time?" and "Year 2000: Are 
You Ready?" is available through this link, and information on the 60 minute audio tape "Systems for the year 
2000: The Upcoming Date Crisis" is available through this link 

http://www.year2000. com/archive/NFcw-article.html 1/ 1 0/00 
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Many of Peter's other writings on the Year 2000 computing crisis are available through the archives section of 
this web site. To access Peter's non-Year 2000 related articles, visit www. newzletter. com. 
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NEWS 

■ Lotus resists user pressure for a Notes run- 
time option but promises improvements in ser- 
vice and appl ic a t io n development loo U.Page 4 

■ A new crop of distributed network manage- 
ment products aims to overcome SNMP's limi- 
tations in enterprisewide management. Page 6 

■ More than 75 leading Unix vendors unite to 
create a common set of application program- 
ming interfaces. Page 8 

■ Digital makes a bid for wider Alpha support 
with the introduction of a Pentium-class chip 
for S3 .000 to $4 ,000 Microsoft Windows NT PCs. 
Page 10 

m Extra! Microsoft begins to act on its promise 
to tie a messaging function into Windows. Page 
12 

■ Unable to meet demand for the Think pad, 
IBM PC Co. announces a new line with a differ- 
ent, and more easily obtainable, screen tech- 
nology/tape/* ^ 

DESKTOP COMPUTING — ~ 

■ Apple uses the Macintosh 
operating system as a lure to 
build interest in the PowerPC 
V\*itorm.Page37 

WORKGROUP COMPUTING 

■ Oracle Anally agrees to support Banyan's 
Vines network operating system, but not with 
its latest link product. Page 51 

ENTERPRISE NETWORKING 

■ Users and vendors agree that Simple Net- 
work Management Protocol needs help with en- 
terprise networks. Page €3 . 

LARGE SYSTEMS 

■ Long-awaited commercial applications for 
massively parallel processor computing finally 
oTtive.Page 71 





Mini 



CAREERS 

. ■ Flexibility is one of the draws of contract pro- 
gramming, but sign up with the wrong broker 
and you can kiss that benefit goodbye. Some 
agencies have been criticized for excessively 
restrictive contracts. Pages 113 and 117 

MARKETPLACE 

■ Household names they 
aren't, but IS executives tell us 
these products are great. Page 
12G 

I COMMENTARY 

3 

s aRDBMS vendors aren't rush- 
* ingto provide the support for objects that lead- 
ing-edge companies need. Charles Babcock ob- 
Erterprise Networking: T?/e Internet isbritigng serves. Page 6 
iife-saving information to (ievetoj)ing 

nations Page 63 ■ Editor-in-chief Bill Laberis suggests that the 

relative improvement in women's pay seen in 

■ IBM is about to introduce an automated tape ComputerworlaS 1993 Salary Survey may 
library for the AS/400. Page 71 mean downsizing is squeezing ou t discrim ina- 

i\on. Page 32 

APPLICATION DEVELOPMENT B Tim Lynch at Florida Power and Light says 

■ Computer Associates is winning over previ- OOP has its place, but it isn't the miracle advo- 
ouslyskepticalClipperusers./k7ffffW cateswould have you believe. Page33 

M . M Ar FM parr " Patricia Seybold says you can't have an infor- 

mAnAutJVltn I mation-rich organization until you convince 

■ Salaries are up slightly, according to Compu- people to share. Page 33 

terworld's seventh annual Salary Survey, al- . , 

.... tt , . , _ nt aWait for the simplicity that vendors always 

though largesse more often takes the form of r f / 

* _ nr promise with the next release, Ellis Booker 

merit bonuses. Page 91 r . , ^_ 

writes, and opportunity will pass you by. Page 

IN DEPTH 74 

■ In a little more than 2.000 days we'll flip our 
calendars to the year 2000. Many mission-criti- 
cal systems may not survive the date change. 
Page 105 

Calendar. ™. Page 104 

COMPUTER INDUSTRY Company Index „ „ »..PageJ3i 

■ Control Data Systems celebrates its first Editorial/Letters to the editor Page 32 

year of independence and. four profitable quar- 
ters. Page 133 Friday Stock Ticker page 132 
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Good news, but . . . could describe a lot of the news this 
week, starting" with this nugget from our seventh an- 
nual Salary Survey. CIO salaries are climbing slightly 
after an ominous dip last year. Less encouraging is the 
consensus that downsizing and streamliningwill con- 
tinue unabated, and CIOs who don't keep up techno- 
logically are prime targets.Paf/e 91 



More mixed messages in terms of 
technotogydevelopments: 
Leading Unix vendors have an- 
nouced their intention to create 
consistent APIs for Unix client/ 
server applications, which 
could mean lower costs for us- 
ers in terms of packaged soft- 
ware as well as training and in- 
tegration. Only problem is. the 



APIs won't appear until the mid- 
dle of next year, and It could be 
two years before customers see 
real benefits. Pages 1 and € 

. Token Ring users might be happy 
to hear that an IEEE working 
group is taking up the issue of 
howto speed up the Token Ring 
architecture. FDDI and ATM are 



already options for those who re- 
quire more speed, but both entail 
changing hardware and cabling 
Some observers are concerned, 
however, that this effort, in which 
IBM and Proteon plan to partici- 
pate, will produce more confu- 
sion than actual beneUtPage54 

Companies that have ventured into 
use of SNMP for large-scale net- 
work management say they are 
already plenty confused. No mat- 
ter what it's called, workingwith 
this protocol la not simple. DHL 
Wortdwtdc had to develop agent _ 
technology to handle local poll; ' 
ingand install a utility so devices 
could send periodic "I'm here" 
signals because messages were 
beinglost enroute to Hewlett- 
Packard's SNMP-based Open View. 
Page 63 



Users are chafing at the high price 
of Lotus Notes and opting for low- 
er priced E-mail applications 
that offer hooks into Notes. Az?e 
4. Meanwhile, new competition . 
has appeared on the horizon. 
Oracle, which once huddled with 
Lotus on the subject of linking 
Notes with the Oracle database, 
has decided to move ahead with 
a full-tied ged product of its own. 
Page /. And Microsoft is working 
on integrating E-mail with its 
-Chicago" version of Windows, 
which would strengthen its hand 
in the workgroup area. Page 12. 
Despite^stomer protests and 
the specter of competition. Lotus 
Is standing firm on pricing and - 
offering only longHerm improve- ■ 
ment to its application develop- .■ 
men t environment. It also has a . 
new service option. Page 4 .. . 
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-jy Have you ever been in a car 
accident? Time seems to 
PETER slow down as you realize 

DE JAGER y° u re s° in £ t0 crasn ^to 

the car ahead of you. 
It's too late to avoid it — you're going 
to crash. All you can do now is watch it 
happen. 

The information systems community is 
heading toward an event more devastat- 
ing than a car crash. We are heading to- 
ward the year 2000. We are heading to- 
ward a failure of our standard date 
format: MM/DD/YY. 

Unfortunately, unlike the car crash. 

time will not slow down 

THE COST FOR i0T us - If anvtnu1 & were 
PROGRAMMING ^ 

This is a good news/bad 
news story First the bad 
news: There is very little 
good news. There is no 
way to avoid the fact that 
our information systems 
are based on a faulty standard that will 
cost the worldwide computer community 
billions of dollars in pro- 
grammingeffort. 

Perhaps more important- 
ly; we are going to suffer a 
credibility crisis. We and 
our computers were sup- 



Thedate 
change hi the 
year2^0-an 
event that may 
trigger fatal 

errors in 



posed to make life easier, this was our 
promise. What we have delivered is a ca- 
tastrophe. 

The problem is twofold: 
the date issue itself and, 
more importantly, our re- 
luctance to address the 
problem. 




THE COST WHEN 
YOU ADD DESIGN, 
MANAGEMENT, HARD- 
WARE, SOFTWARE 
AND SUPPORT: 

$75BillI0N. 




TO ADJUST 
All SYSTEMS FOR 
THE YEAR 2000: 

$50 BEIXION. 
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Problem ID 

What exactly is the "prob- 
lem 0 ? To save storage 
space — and perhaps re- 
duce the amount of keystrokes neces- 
sary to enter a year — most IS groups 
have allocated two digits to the year. For 
example. "1993" is stored as "93" in our 
data files, and "2000" will be stored as 
"00." These two-digit dates exist on mil- 
lions of data files used as input to mil- 
lions of applications. : 

This two-digit date affects data ma- 
nipulation, primarily subtractions and 
comparisons. For instance, I was born in 
1955. If I ask the computer to. calculate 
how old I am today, it subtracts 55 from 
93 and announces that I'm 38. 

So far so good. But what 
happens in the year 2000? 
The computer will sub- 
tract 55 from 00 and will 
state that I am -55 years 
Doomsday, page 1 08 
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AVERAGE TIME 
NEEDED FOR 
CODE 2000: 

7 DAYS PER 
PROGRAM. 
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Doomsday, frontpage JOS 
old. This error will affect any calculation 
that produces or uses time spans, such 
as an Interest calculation. 

If you have some data records and 
want to sort them by date (e.g., 1965, 
1905. 1966), the resulting se- 
quence would be 1905. 1965, 
1966. However, if you add in a 
date record such as 2015. the 
computer, which reads only 
the last two digits of the date, 
sees 05. 15, 65. 66 and sorts 
them incorrectly. 

These are just two types of 
calculations that are going to 
produce garbage. There are others. 

The task facing us is to identify and 
correct all the date data and check the 
integrity of all calculations involving 
date information. We must correct the 
data residing in aU data Hies or write 
code to handle the problem. c 

Thestartlngpolnt 

How do we identify the problem data and 
the associated calculations? We have 
few, if any, standards for labeling data 
used in date calculations. The only 
choice we have is to examine each line of 
code and make the necessary changes. 

One IS person I know of performed an. 
internal survey and came up with the fol- 
lowing results: Or 104 systems, 18 would 
fail in the year 2000. These 18 mission- 
critical systems were made up of 8,174 
programs and data-entry screens as well 
as some 3,313 databases. With less than 
seven years to go. someone is going to be 
workingovertime. 
By the way, this initial survey required 



10 weeks of effort. Ten wecksjust to iden- 
tify the problem areas. 

How many systems do you have? How 
many lines of code do you have in your 
organization? How many data file s? How 
many maintenance programmers? 

The problem extends be- 
yond mere calculations and 
Into the I/O processes of ev- 
ery application. Can you en- 
ter 2000 into your data 
screen, or can you enter only 
two digits, forcing the input 
of 00? Can you r hard-copy re- 
ports print four digits? 
The crisis is very real and 
potentially very costly. Ken Orr, principal 
at the Ken Orr Institute, and Larry Mar- 
tin, president of Data Dimensions, Inc., 
estimate that Fortune 50 organizations 
will each have to spend about 35 to 40 



enlightened group. 

Typically, all I get are snickers and 
comments such as. "I won't be in this po- 
sition or this company in the year 2000. 
It's not my problem." 

Thisattitudeinthecomputingcommu- 
nity is the real problem. It is very difficult 
for us to acknowledge that we made a 
"little" error that will cost companies 
millions of dollars. It is also a "pay me 
now or pay me later" situation. 

"We in the IS industry have not been 
paying our way/' says Gerald Weinberg, 
author of Quality Software Afanage- 
ment and winner of the 199 1 J. D. Warni- 
er Prize for Excellence in Information 
Science. "We have been buildingupa'na- 
tional debt' just as surely as the U.S. has 
been building up a money debt. It will be 
paid by our children — our successors — 
one way or another," Weinberg says. 



cents per line of code to convert all their We don't have a choice. We must start 



existing systems to accept 
the change from the year 
1999 to 2000. 

That translates into about 
$50 million toSlOOmUlionfor 
each company. The mind 
boggles at a maintenance 
problem with that price tag. 

And the costs could be 
even higher. "The truth is. 
until we work through a com 



TOTAL PROGRAM- 
MING TIME FOR 
ALL SYSTEMS: 

1.2 MILLION 
MAN-YEARS. 



addressingthe problem to- 
day or there won't be 
enough time to solve it. 
Status quo means applica- 
tions that will produce 
meaningless results in the 
new millennium. 

Weinberg says he be- 
lieves this procrastination 
is' an indication of deep 
management malaise. "If. 



pletecyclewithsomelargeorganization, software engineering managers cannot 

we are not going to really know," Orr manage a change that they've had 1,000 

years to prepare for, how can we expect 

"i have spoken at association meetings them to manage a change that happens 

and seminars and when I ask for a show without notice? In other words, if this 

of hands of people addressing the prob- change causes a crisis in your orgamza- 

lera the response is underwhelming. If I tion. everything will cause a crisis in 

get one in 10 respondents. I'm facing an your organization — and often nothing 
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Torrington Co. doesn't 
have time for seers pre- 
dictingdire consequences 
when the final tick of the 
clock strikes a change to 
the year 2000. That's be- 
cause this bearings manu- 
facturing company, a division of Inger- 
soll-Rand Co., is too busy doing some- 
thingaboutit. 

In 1991, at the suggestion of an employ- 
ee and as part of its drive toward total 
quality management, Torrington con- 
vened a seven-member team, headed by 
programmer/analyst Bob Hartman-Ber- 
rier, to tackle the century date change is- 
sue. The Torrington, Conn.-based com pa- 
ny knew that because certain ot its 
programs stored dates by their final two 
digits, a changeover to the year 2000 
could mean fatal errors that might throw 
its global systems Into an uproar. 

The group brainstormed about prob- 
lems areas — the company has a mix of 
mainframes, minicomputers. PCs and lo- 
cal-area networks — and interviewed 
businesspeople throughout the firm. 

Members took an inventory of in-house 
and outside software products. They 
sent a questionnaire to Torrington's 90 
vendors (30 mainframe and minicomput- 
er, 60 PC) to gauge product support for 
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four-digit years. 

Vendor responses were encouraging 
Of the 90% mainframe and 60% PC ven- 
dors that returned the survey, nearly all 
of them either could accommodate the 
centu ry date or had fixes in the works. 



The in-house Inventory showed that 
30% of Torrington's programs and 25% of 
itsfiles and databases required changes, 
Hartman-Berrier says. At 25 hours per 
program and 40 hours per database file 
to reformat, unload and reload, the team 
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will cause a crisis." 

t The inability of the industry to even 
think about such a project is trouble- 
some. "No one wants to step up to the is- 
sue — not [IS] management, not the ven- 
• dors, not the industry gurus/' Orr says. 
"As with all legacy systems, this problem 
is messy, expensive and unromantic. No 
one wants to go in and tell management 
they have a multimillion-dollar require- 
ment just to keep the business running 
and that they really have no options." 

The reason nothing is bcingdonc, says 
Capers Jones, chairman at Software Pro- 
ductivity Research. Inc., is that the soft- 
ware industry isn't used to taking long- 
term preventative steps. "I expect that 
most companies will not start worrying 
about the problem until 1999," Jones 
says. 'Tor some, this will be too late." 

Now the good news 

There is good news. Object-oriented sys- 
tems may be able to help. Faced with the 
huge maintenance costs of fixing their 
systems, firms may opt to rewrite sys- 
tems from scratch using object-oriented 
programming techniques. Tom Love. 
IBM vice president of the Object-Orient- 
ed Group, is a proponent of this theory. 

Some companies are unveiling testing 
and inventory tools that may ease the 
identification of trouble spots. 

Others are hoping that bombard Lag 
people with information is the best rem- 
edy. To that end. William Goodwin in 
Brooklyn. N.Y.. publishes a newsletter 
entitled "Tick, Tick. Tick." which brings 
together people in the IS industry con- 
cerned about the impact of the year 2000. 

But is the warningfallLngon deaf ears? 



expects the work load to be heavy. 

Costs have been a little trickier to pin- 
point. While Hartman-Berrier says 
worst-case costs to revamp systems 
could reach $3.5 million, the best-case 
could be one-tenth that figure. 

Hartman-Berrier and Ken Even, man- 
ager of corporate support, hesitate to 
commit to a number on project cost be- 
cause of the firm's move to a distributed 
setup. "Distributed systems may mean 
we remove some applications, keep oth- 
ers. If we remove a system, we don't have 
to change it, reducing our labor efforts 




TheTorrington 2000 team: (front): Traci 
Winegar, A tison A nstett. Evelyn Pulaz- 
zini; (back): John Draghi. BUI Beyer. Bob 
Bouchard, Hartman-Berrier 

and resources." Hartman-Berrier says. 
"We can take a felt-tip marker and strike 
programs and files from our list." 

His advice to other IS professionals is 
to "plan, plan, plan and act, act. act." The 
year 2000 is coming. 0 
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"I feel like a lone voice cryinp in the wil- 
derness." says Brian Pitts, one of Good- 
win's subscribers find project manager 
a t Berry Co. in Dayton. Ohio. "Current 
economic conditions are making this 
problem more difficult to address. Man- 
agement is focused on short-term results 
and is placing long-term negative conse- 
quences on the back burner." 

The next seven years will be filled with 
dire predictions. "You arc going to be- 
come very, very tired of millennium 



moaners telling you that your software 
will fail as it enters the new millennium," 
says Nicholas Zvcgintzov. publisher of 
Software Maintenance N&vs. "'But be 
patient with them. There rcnlly is some- 
thingtobesaid forthem." " 0 
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Party When It's 1999 

Jeff Furman, Albert Maratta & Cliff Candkrtti 





DATELINE: December 31. 1999 

You are piloting an F-22 above 
the Pacific Rim. It is one second to 
midnight and the foreign craft 
tracking you is so close youVe 
obliged to send a warning signal as 
a New Yeart greeting. 

The other pilot has two seconds 
to respond. Your onboard strategic 
systems are now calculating the 
time difference between when you 
sent your message and when a re- 
ply will reach you. 

You wait The Interval seems In- 
terminable. To your equipment, 
though, it is extremely short: -1.5 
seconds to be exactl Because you 
sent your signal in the year "99," 
and received the reply in the year 
"00; f the difference is negative, and 
your weapons system Is arming! 



As the year 2000 loams, MIS must 
come to grips with the task, of identi- 
fying century-change bugs across all 
systems, fixing applicable applica- 
tion components, and testing these 
applications. 

Software vendors are developing 
products to help users face the millen- 
nium- These fall into five categories: 

1. System date simulators. 
These tools allow IS to pass user- 
specified system dates to hatch jobs, 
TSO user IDs and CICS compo- 
nents. If systems that depend inten- 
sively on date-based processing or 
that routinely run across date 
boundaries or time zones have al- 
ready been identified, a date simula- 
tor might be the most powerful 
weapon in a year-2000 arsenal. 



Users can set up duplicate tests sim- 
ulating date changes in key ^pro- 
cessing windows, giving "before" and 
"after' results. 

Date simulators generally permit 
altered dates and/or times to be 
passed to jobs based on criteria like 
job name, job name pattern, job class 
and job snhnritter ID. They can be 
customized to allow simulated dates 
and times to be passed to TSO ses- 
sions and started tasks. All date sim- 
ulators have security measures pro- 
viding central control over which jobs 
are tested under the simulator. 

Systems programming groups 
should assess these products for 
their impact on overall system per- 
formance, including all jobs that do 



If organizations prepare 
for the year 2000, they'll 

be able to enjoy their 
century-end bash, Instead 
of making a midnight run 
to a disaster recovery 
site. 



heavy system date queries. These 
products work by intercepting SVC 
U calls, and even jobs that do not re- 
quest changed dates or times will be 
affected if they run on ihe same CPU 
as an active date simulator. 

2. Code analyzers- Though date 
simulators provide instant gratifica- 
tion by quickly exposing date-based 
bugs, source analyzers can be a real 



Jeff Furma^is systems support manager, and Albert Marotta and Cliff CanduM a/e 
system* programmers at Prudential Securities, New York City. 



workhorse in assessing year 2000 
retrofit requirements. This type of 
product is a logical juniping^offpoint 
far those who need to get a handle on 
the system-wide scope of their con- 
version effort 

Code analyzers are able to scan 
source management configurations 
for date-sensitive programs, the 
JCL and procs that run them, the 
files they impact, and the business 
processes affected. Some also pro- 
vide information on dependencies, 
interfaces, architectures, strategies, 
business rules and formulas. Prod- 
uct design ranges from mainframe- 
based data dictionaries and repos- 
itories, to data models and Case 
tools developed on client/server 
platforms. 

There are analyzers specifically 
tailored far year 2000 conversion ef- 
forts, as well as generic impact anal- 
ysis tools adaptable for this purpose. 
One product, for instance, allows 
users to create data tables of date-re- 
lated Cobol keywords, run scans 
against source code based on the ta- 
bles, and produce a cross-reference 
report for each program. Some prod- 
ucts allow user-specified searches 
and updates on a variety of file for- 
mats. And som e can even analyze re- 
gions and address spaces for all sys- 
tem date activity, identifying the 
best candidate programs for date- 
simulation testing. 

3. Add-on date functions. An- 
other option is pre-written, pre-testr 
ed vendor calendar date routines. 
There are a number of products 
available that will accurately process 
dates «riri leap year situations. 

With a date routine product, 
there is no need to convert existing 
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databases to fonr-digit year fields. 
Typically these products come with 
hundreds of date-handling utilities 
callable from various languages and 
portable across multiple platforms. 
Most vendor calendar routines ex- 
pect a two-digit year as input, and 
can determine which century field to 
append to the date. The user defines 
an OVEOEvTJNDEE date, and the rou- 
tines do the rest 

A date routine product can com- 
pute the difference between two 
dates, add/subtract the number of 
days to/from a certain date, and find 
"milestone" dates, such as the "end of 
the next fiscal quarte^. ,, 

The decision to add this function- 
ality generally hinges on impact 
analysis identifying which programs 
will fail. Adding calendar function 
calls to application programs is a 
way of thwarting problems with a 
rninimum of code changes. Adding a 
call to any such calendar function, 
however, requires coding, compiling 
linking and testing, ideally with a 
date simulator. This may mean 
dredging up source code that has not 
been touched in years, 

4. Language upgrades^ In an 
attempt to make legacy systems 
century-sensitive, many IS organisa- 
tions have used manual methods — 
moving values to a century field, 
for example. In addition, many ap- 
plications still contain homegrown 
routines for retrieving dates, con- 
verting date formats and perform- 
ing date-based calculations. Such 
nonstandard methods may contain 

time bombs. 

The best thing to do is to upgrade 
to a language that comes with year 
2000 processing capabilities, such as 
Cobol/370, C, Rexx or client/server 
development tools. Cobol/370 comes 
with a century-sensitive four-digit 
year function, and boasts a number 
of other new routines. These perform 
many date-related conversions and 
calculations, as well as numerous 
math functions, while retaining the 
consistency of Cobol syntax. 

There are, of course, downsides to 
upgrading. Resistance to change is 
one. Also, Cobol/370 has some com- 
patibility issues that can make a 



complete upgrade prohibitive- 
One alternative is to phase in new 
software so it exploits Cobol/370 
functionality. Programs are compiled 
with the Cobol/370 compiler; execu- 
tions reference the Cobol/370 run- 
time libraries in a STEFLIB DD 
statement. A second solution is to 
write Cobol/370 subprograms that 
are called by legacy Cobol systems. 
5* Database converters. At 
point in the process of readying 
applications for the 21st century, 
users will need to store the first 2 
bytes of the year. This means that a 
date field in a database will need to 
grow to 8 bytes from the traditional 6 
(Display Mode). Since users don't 
want to re-create every database in 
their shop, they need a way to con- 
vert existing files. 

Some products designed to ma- 
nipulate file data can be used 
for storing century fields. This 
type of utility usually works with a 
"before" and "after 4 ' set of copybooks, 
where the "before" is the one used 
in programs that reference the file, 
and the "after" is what the record 
should look like after the conversion. 
The good news is that a product 
like this may already be in-house. 
The bad news is that this method 
brings up a number of issues: How 
do I initially insert the century digits 
into the record? Wont this increase 
the size of each record? Will every 
field after the date be in the wrong 
position relative to the start of the 
record? What if the file is Vsam, and 
the date is part of the key? If I have 
several record types within one file, 
how do I convert only the date 
records? 

There is at least one product 
available that deals with such issues, 
and was designed specifically for 
century change solutions. An "intelli- 
gent" database converter lets users 
decide how data should be converted 
For example, if users do not want to 
change the length of a record, they 
can add 2 bytes to a date field by 
taVing 2 bytes from a "Filler.* Or, 
tbey can tell the utility to change the 
format of the date field; for instance, 
from "Display" to Tacked* or "Bi- 
nary." This increases tha number of 



digits but not the number of bytes. 

No Midnight Run 

It is always better to deal with 
problems before they arise. Nowhere 
is this more true than in data pro- 
cessing, and the year 2000 holds the 
possibility of some major threats. 
Complications can manifest in a 
number of ways. Programs might 
not know it's a leap year, wind up 
with negative numbers instead of 
positive, move the wrong century in- 
dicator, treat the year as lower than 
the previous year instead of higher, 
ox just fail mysteriously 

It is no exaggeration to say that 
every date-processing program in 
the world — from mainframes to mi- 
nis to the latest PC systems —is vul- 
nerabl e to error. And errors might be 
more than just invalid reports. A 
wayward program might lose or mis- 
direct tinancial figures, for example. 
And software that controls tangible 
objects — like ATMs, airplanes or 
even an occasional smart bomb — 
could bring more than fiscal ruin. 

After evaluating the various 
types of products designed to help 
companies face the rniflennium, we 
feel no one product is a complete so- 
lution. They complement each other. 
We expect to see more sophisticated, 
and possibly more comprehensive, 
products released as part of this new 
"cottage industry," and we believe 
they wul play a key role in maintain- 
ing year 2000 integrity in many 
shops. Other help is also on the way 
in the form of year 2000 newsletters, 
conferences and training sessions 

If organizations prepare for the 
year 2000, the/U be able to enjoy 
their century-end bash, instead of 
making a midnight run to a disaster 
recovery site. U 



CORRECTION 

An editing error in the February 
Editor's Latter gave the impression 
that the Eaabase multidimensional 
database was jointly developed by 
the ibuadhig members of the OLAP 
Council. Essbafi© was developed by 
and is sold only by Arbor Software. 
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Investors sue 
I after STC ices 
CPU project 



SAN FRANCISCO — Sloragc Technol- ( 
ogy Corp. '8 recent cancellation of a project 
to develop an I DM -compatible processor 
resulted in the filing in federal court here 
last week of a class action suit charging 
the company with securities fraud and 
racketeering. 

The suit, filed by the Chicago law firm 
of Kalten, Muchin, Zavis, rear I & Caller, 
charges STC with slock fraud and seeks 
actual damages of $10.6 million and puni- 
tive damages of $20 million. It also seeks 
unspecified additional damages that may 
be tripled under the provisions of the fed- 
eral Racketeer Influenced and Corrupt Or- 
ganizations Act, a statute generally used 
by the federal government to prosecute or- 
ganized crime figures. 

Donald E. Eg an. the altdrney who filed 
the suit, charged that STC had created a 
partnership to finance the processor proj- 
ect and. four months before canceling the 
project, obtained $10.6 million from 181 
new. limited partners who. were given 
"written statements and misrepresenta- 
tions of material facts that were untrue or 
misleading." 

Also named in the suit was the invest- 
ment firm of Smith, Barney, Harris. 
Upham and Co. 

STC killed the project to develop a high- 
performance, IBM-compatible mainframe 
after citing technological problems and in- 
creasing cost estimates |CW, Feb. 6). 

At press time, STC had no comment. 



Supermini hits 
campaign trail 
with Cranston 



By JintN Connolly 
CW Staff 



CAMPAIGK $4 



P-»L4,\ J WASHINGTON, D.C. — 
What may be the most so- 
phisticated in-house com- 
puter system ever used by 
a presidential candidate is 
helping U.S. Sen. Alan 
Cranston (U-Calif.) in his try for the Demo- 
cratic nomination. 

Cranston, ranked as low as sixth in 
polls thai show him mure than 40 percent- 
age points behind former Vice-President 
Waller Mondale, apparently is the only 
one of eight candidates to use a minicom- 
puter and the first to use a supermini in 
his campaign headquarters. 

Like the competing organizations, the 
Cranston campaign uses computers for 
mass mailings of political and fund-raising 
letters, for scheduling and for income and 
expense reports for the Federal Election 
Commission. Hut while the other cam- 
paigns use service bureaus and in-house 
microcomputers, the Cranston for Presi- 
dent Committee has a Digital Equipment 
Corp. VAX-1 1/750 in its headquarters 
here and DEC Rainbow micros in its New 
Hampshire and Iowa field offices. 

"Wf made a decision well back in 1982 
to go in-house," Alex Thurber. ihe commit- 
tee's director of information systems, said. 
"A campaign doesn't have the time to wait 
for someone else to do its processing. We 

See CRANSTON page 4 
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He heads 'two-in-one' department 



By James Connolly 
CW Staff 

SMYRNA, Tenn. — Logic says it is a 
mismatch, a marriage in which the part- 
ners have little In common and tittle to say 
to each other. 

.• But Nissan Motor Manufacturing Corp. 
U.S.A. says that upon closer inspection, 
the "mismatch" makes sense. 

Nissan merged its information systems 
with its purchasing department. 

The apparent illogic lies in the fact that 
the departments cover so little common 
ground. But "we put the two groups to- 
gether because they don't go together," 
emphasized Robert A. Frinier, who became 
vice-president of purchasing and informa- 
tion systems on Jan. 1. 

"We think we flguredout a way to have 
systems report to a division where it can 
be run without bias," Frinier explained. 
"Purchasing in this facility doesn't place 
much of a demand on the {DPI systems, at 
least much less than finance or production 
control. Our consultants said the systems 
organization needs a place where it can get 
top-level support and not be biased by the 
person In charge being primarily responsi- 
ble to other areas." 




That bias, he noted, could result in a de- 
partment head tailoring information sys- 
tems to his own needs at the expense of 
other departments or paying too little at- 
tention to information 
systems. 

"We think this concept 
might knock the comput- 
er industry on its ear," 
according to 42-year-old 
Frinier, who has a back- 
ground in production 
control. Formerly with 
Ford Motor Co, in Michi- 
gan, he has been with 
Nissan since 1980, work- 
ing with system users in production and 
with consultants and technical personnel 
in developing flowcharts for system inter- 
faces between the new facility here and 
Nissan's headquarters in Japan. 

Frinier heads a department of 70 peo- 
ple, some of whom previously worked in 
information systems when it was con- 
trolled by the Finance Division. Responsi- 
bility for information systems was shifted 
-from the Finance Division on Jan. 1, at a 
time when company President Marvin 

See NISSAN page 2 
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M&D offering 
tool to build 
applications 



By Paul QUI in 

CW Staff 

NATICK, Mas3. — McCormack & Dodge 
Corp. last week continued its foray into 
the systems software market by releasing 
as a package the system development soft- 
ware used to build its Millennium applica- 
tion series. 

Millennium:SDT can be used to build 
IUM CICS applications that are fully Inte- 
grated with mainframe-based M&D Millen- 
nium applications, including general led- 
ger, fixed assets, human resources, 
accounts payable, purchase order and cap- 
ital project analysis. 

The package incorporates both inter- 
pretive and generative capabilities as well 
as reusable code, M&D said. Application 
definition is accomplished by creating 
data base records for files, records and 
fields, screens, queries and search fields. 
• M:SDT programs can call literals, vari- 
ables and parameters and map them di- 
rectly to the screen, eliminating CICS map- 
ping and security, according to an M&D 
spokesman. 

M:SDT uses M&D's procedure definition 
language. MiIIennium:PDL, to access and 
process data within the data bases. M:PDL 
uses an English-like syntax and arithmetic 
and logical operators to execute complex 
expressions. 

On-line features offered with M:SDT 
and all Millennium products include multi- 
See MAD page 6 



TOP OF THE NEWS 



Victor Technologies, Inc. has earned 
the unhappy distinction of becoming the 
third microcomputer maker in six 
months to file for protection under Chap- 
ter 1 1 of the Federal Bankruptcy Code, 
Page 2. 



The Federal Communication* 
mission modified access surcharges for 

Foreign Exchange and Wats users, but re- 
tained the $2/ mo and S6/mo fees per line 
for Ccntrex-CO. Page 2. 



Digital Equipment Corp. has 
the first major computer vendor to en- 
ter the off-site storage and recovery busi- 
ness. Page 4. 

■ 

DP salaries are np sharply from six 
months ago, a recruiting firm reported. 
Page 9. , 

■ 

Supercool pater maker Denelcor 
Corp. haa Jumped on the Unix bandwag- 
on. Page 69. 

■ 

The Goodyear Blimp Is not the only 
big thing for which the company could 
become famous. Goodyear Aerospace 
Corp. researchers claim they. "have devel- 
oped a computer system with the fastest 
I/O rate in the world. Page 99. 



The problem you may not know 



Then is a bug in every Cobol pro- 
prom in your library. 

You probably don't know about it, 
and you almost certainly haven't 
had to worry about it yeL But when it 
shows up, it will hit your entire shop, . 
reducing data entry procedures to a 

By PtutOtfttn 

CW Staff 

N0V1, Mich. — When systems ana- \ - 
lyat William Schoen has presented 
DP managers with that pitch, he has 
understandably piqued their inter- 
est. But he has had trouble getting, 
them to lake his case seriously when 
they find out what the bug Is. 

The problem is the year 2000. The 
turn of the calendar presents a proce- 
dural Issue that is acknowledged oc- 
casionally in trade conference Jokes 
and DP shop banter but has attracted 
little serious attention in the Indus- 
try. 

The root of the issue is the indus- 
trywide standard of using two-digit 
date fields in Cobol programs. Error- 
checking procedures typically rely 
upon dates proceeding sequentially, 
with one year's date being greater 
than that of previous years. 

However, programs will be thrown 



Manager gets 
16-year jump 
on Cobol bug 



TOLEDO, Ohio — Although he 
agrees that making Cobol programs 
"year 2000-compatible" is not an is- 
sue of immediate concern, a DP man- 
ager here has elected to become the 
first user of a set of subroutines de- 
signed to make the transition to the 
new millennium a smooth one. 

Michael Ehrick, director of com- 
puter services at Libbey-Owens-Fbrd, 
Inc., became interested in preparing 
Cobol programs for the inevitable 
march of time. after he received a di- 
rect mail advertisement from William 
Schoen, a systems analyst based in 
Novi, Mich. 

Schoen *s Charmar Enterprises, 
Inc. markets a product that addresses 
the problems that may emerge when 
the year 2000 arrives and plays hav- 
oc with date fields in existing Cobol 
programs (see related story). His 
product is "a subroutine that does 
some elegant arithmetic routines that 
let you compare date fields with two- 
digit years in such a way that the 
year '00' is greater than the year 
'99/ " Ehrick said. ScKoen also offers 
an approach to "sorting so that the 
same end is achieved, according to 
Ehrick. 

Ehrick put Schoen in contact with 
Ubbey-Owens- Ford's manager of ap- 
plication development. The company ' 
expects to begin Including the sub- 
routine in new applications as soon 
as the next development project la 
undertaken. 

The subroutines are "nothing 'an 
advanced computer science major 
couldn't do,** Ehrick said.. But, he 
added, "a lot of creative thought 
went into this, along with a lot of 
dogmatism." 



for a loop after the turn of the centu- 
ry, when they have to cope with the 
two-digit date field "00" being great- 
er than "99." Schoen ticked off the 
problems that will arise if the issue Is 
not dealt with: "Pro- 
gram logic Is going to 
malfunction all over 
the place. Sequential 
data processes are go- 
ing to abend. A great 

. man y on -li ne mod u i es ' v : \ 

won t accept, the; new. dates [ because 

they^jnclwle^ 

s<MtsJwon i* t Vwbrk3aJid a v g re at ' m an y 
literals won't work. T 

Perhaps understandably, the issue 



200?? ? 

S M T W f F S 



has received little serious attention 
from a DP community that is con- 
cerned with more immediate prob- 
lems. But Schoen claims data process- 
ing should start paying attention 
now to the problem of 
making programs 
"year 2000-compati- 
ble" In order to avoid 
headaches when the 
lime of. reckoning 
draws near. 
He rationalizes that most large 
firms maintain a library of thou- 
sands of Cobol programs, most of 
which have at least one date field. In 
addition, many of those programs 



have literals, sequence processes and 
error checks Interspersed through- 
out, meaning that they will require 
modification in several places. 

"You can't assume every date fleW 
has the word 'date' In it," ;Schoen 
said. "You also can't assume every 
field that looks like a date field Is a 
date field. You're going to have to • 
look at every program and figure it 
out." 

^^^•t-rreas^h^.fhe.-.aaidi. the ; 
"black box": approach of simply ^rurH r 

ficaUon routine is impractical! Some 
date fields are bound to be missed. 

See 2000 page 6 




Are your backups running into 
your prime shift ? 

incremental Backups can reduce your 
backup time by 50 to 80%. 

User can specify that ABR is to backup changed data sets only until a limit count 
is reached. At that time. ABR will interpose a full volume dump. This technique 
greatly reduces backup time while providing a periodic image or the entire volume. 

• Automatic Volume Reconstruction ■ ' • Preallocation ' 

• Automatic Tracking of Backups • Unlike Device Support 

FDR 

AUTOMATIC BACKUP & RECOVERY 
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Victor petitions f pr Chapter 1 1 

Third micro maker in six months to file 



J 



By Petricta K##nt 

CW Staff 

SAN JOSE, Calif. — Bowing to 
pressure from its many creditors and 
several lawsuits, Victor Technol- 
ogies, Inc. last week voluntarily filed 
for protection under Chapter 1 1 of 
the U.S. Bankruptcy Code. 

With an estimated $70 million in 
unsecured debt, Victor became the 
third microcomputer maker in six 
months to seek court protection. 

Victor said its manufacturing unit, 
which is also named Victor Technol- 
ogies, Inc., has consented to a sepa- 
rale, involuntary bankruptcy peti- 
tion filed last week in federal 
Hankruptcy Court here by six credi- 
tors, whose unsecured claims total 
over X 1 2.8 million. The' la tier petition 
sought to force the California-based 
manufacturing unit into Chapter 1 1. 
where it could reorganize and work 
out a debt schedule under court pro- 
tection from creditors' lawsuits. 

According to a statement released 
by Victor, two other units also filed 
voluntary petitions: Victor United, 
Inc.. the U.S. distribution subsidiary. 



and Victor Technologies Internation- 
al Sales Corp. 

The vendor's European and Cana- 
dian distribution operations are insu- 
lated against claims against the U.S. 
entities, Victor said. 

Victor has reached an agreement 
with Its largest secured 'creditor. Se- 
curity Pacific National Bank, under 
which the bank will finance "near- 
term manufacturing and distribution 
needs,*' a spokeswoman for Victor 
said. That agreement is subject to ap- 
proval by the Bankruptcy Court. 

Victor said it will continue to sup- 
ply an adequate amount of comput- 
ers to its U.S. and foreign distribu- 
tion outlets. 

As part of a restructuring of oper- 
ations, Victor has terminated 300 em- 
ployees in the U.S., leaving approxi- 
mately 570 employees worldwide, 
the spokeswoman said. Victor de- 
clined to comment further. 

Second suit 

Another suit filed last week, this 
one by the advertising and public re- 
lations firm of Doyle Dane Bern bach 



International in federal Bankruptcy 
Court in Manhattan, seeks $8.3 mil- 
lion — S3. 3 million for services per- 
formed (media buying) and 15 mil- 
lion in damages. That suit accuses 
Victor of providing false financial 
statements that overstated the micro 
maker's true worth and failed to dis- 
close losses suffered in 1982, accord- 
ing to spokesman Robert Frost. The 
suit also names as a defendant Kidde, 
Inc., which owns a majority share of 
Victor, and Kidde President Fred R. 
Sullivan. 

Victor has had a tough two years 
financially, suffering losses of ap- 
proximately S3 million in 1982 and 
S47 million to date in fiscal 1983. Its 
overall debt reportedly tops S 100 
million. 

The Chapter 11 filing highlights 
the failure of a creditors' committee 
established in late 1983 to help Vic- 
tor devise a plan for paying a debt 
then estimated at $90 million. Negoti- 
ations betyeen Kidde and the com- 
mittee reportedly broke down, result- 
ing in a successful bid to force Victor 
into Chapter 11. 



NISSAN from page ! 

Runyon installed new vice-presi- 
dents for product control, engineer- 
ing and planning and finance as well 
as for purchasing and information 
systems. 

The highly automated plant has 



tHM;n producing an average of 7,000 
light trucks a month since beginning 
production last June, according to 
Frinier. 

"I don't have a very strong com- 
puter background from a technical 
point of view," the Nissan executive 
acknowledged. 



He noted, "Initially, I'm spending 
80% to 90% of my time on informa- 
tion systems, learning as fast as I 
can. 

"I have people working for me 
who have been with information sys- 
tems for a while. So they're teaching 
a newcomer," he said. 



I 



; Digital Equipment Corp. has en- 
j lered the off-site storage and di- 
I saster recovery business 



Honeywetl, Inc. reduced the 
; purchase prices of some DPS 8 
j and DPS 88 mainframes 4 

I 

! An analyst's tool is addressing 
I the programming problems of 
j the year 2000 7 

i 

The Postal Service has issued Ti- 
na] regulations on submitting 
mail with nine-digit zip codes 8 

Source EDP, a recruiting firm, 
reported that salaries in the 
computer profession are up 
sharply from six months ago 9 

The on board computer failures 
of the Columbia space shuttle 
flight have been diagnosed and 
an additional quality control 
procedure was established by 
IBM to prevent a recurrence 10 



Two communications satellites 
Intended to transmit voice, 
data, video and facsimile traffic 
failed to reach proper orbit af- 
ter their launch from the space 
shuttle GhflUtfiiosr 



NEWS SUMMAR Y 

Digital Equipment Corp. Presi- 
dent Kenneth Olsen last week 
promised "drastic" cuts in sys- 
tem prices.. 13 

The quality assurance coordina- 
tor of a Boston bank talks about 
her job 14 

A strategic planning company, 
Cross Information Co., suggests 
how users can deal with the ef- 
fects of the AT&T divestiture 15 

California legislators have in- 
troduced a bill to increase flexi- 
bility in prosecuting hackers 16 

Interview: Thomas M. Nies, 
president of Cincom Systems 17 

Attendees at the 1984 Insur- 
ance and Protection Conference 
of Financial Institutions were 
advised to coordinate micro 
strategy . 19 

PC World Exposition: Rivalry 
between IBM and Apple highly 
evident . . .New family of IBM- 
compatible micros, Winchester 
disk controller among the de- 
buts at the show 2 



Mobile robots are being sold to 
jfttlpns for tasks too boring or 
tooxlangerous for humans 31 

Users at the Slate University of 
New York at Albany are design- 
ing their own programs 34 

An on-line data base is helping a 
Libbey-Owen-Ford division 
identify sales opportunities 36 

ITT Publishing has reduced DP 
operating costs by 60% since 
converting from batch 37 

An Atlanta public utility has 
built a modeling data base that 
is shared by engineers, systems 
analysts and planners 40 

A building supplier bought a 
program generator to develop 
its own accounting application 
without writing all the code 
from scratch 42 

A CAD system cut the time that 
Ross Gear spends designing 
tooting for truck manufactur- 
ing 45 

Wells \ Fargo Bank saved 
$250,000 by switching to dry 

COM.^ 



The U.S. Air Force debuted the 
first of 153 Sperry Cjorp. main- 
frames being instated under 
the largest computer contract in 

history.... m******************************** 
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Bottom-up system design is the 
corporate personal computer 
networking approach for the 
'80s, Amy Wohl said recently...... £4 
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Access fee cut 
for Wats, kept 
for Centrex 



By Phfl Wrach 

CW Washington Bureau 

WASHINGTON, D.C. — The sur- 
charges for accessing the dial-up tele- 
phone network will remain the same 
for Centrex-CO (Central Office) us- 
ers, but the surcharges for Wats and 
Foreign Exchange services will be 
modified, the Federal Communica- 
tions Commission ruled earlier this 
month. 

Immediately afterward, Jack 
Smith, chief of the FCC's Common 
Carrier Bureau, indicated he Is still 
hoping for some reduction in ATATs 
upcoming long-distance rates. He 
said he "would like to see something 
in the neighborhood of* a 6% to 8% 
reduction in the proposed rates for 
Message Toll Service (MTS). 

The FCC's latest action on its ac- 
cess surcharge plan was taken at a 
Feb. 3 meeting. Specifically, the com- 
missioners: 

■ Reaffirmed an earlier decision 
under which Centrex-CO users whose 
systems were in place or on order as 
or July 27, 1083 will pay an access 
surcharge of $2/mo per line, while 
those using newer systems will pay 
$6/mo per line. The fees will begin 
April 3 and continue until sometime 
in 1985 when, depending on the out- 
come of an upcoming FCC study, they 
may be altered. 

■ Converted the closed end of 
each Wats line from an interstate to 
an intrastate facility. Under the ear- 
lier scheme, a user would have paid a 
direct charge of *26/mo per line ter- 
mination beginning April 3. Now the 
user will pay the local telephone com- 
pany a maximum S6/mo per line ac- 
cess surcharge, plus a varying 
amount to AT&T based on Wats us- 
age. The FCC anticipates, however, 
that the latter fee will be absorbed 
rather than passed on by the phone 
company, a spokesman said. 

■ Restructured Foreign Exchange 
access surcharges so that at least 
some users of this service will pay 
less. 

The commission decided that a 
telephone operating company provid- 
ing local exchange facilities at the 
"open" or remote end of . a Foreign 
Exchange circuit can charge only 
46% of the MTS/Wats access fee 
rather than an equivalent amount 
Although this change wilt tend to 
drop Foreign Exchange rates below 
what they would have been, the total 
bill is likely to go up significantly 
when compared with present rates 
because of pending increases for ju- 
risdictionally Interstate short-haul 
Foreign Exchange access circuits. 

However, rates for similar long- 
haul circuits of 26 miles or more gen- 
erally have not been Increased and In 
some cases have been lowered, the 
spokesman said. 

One problem that remains to be re- 
solved, the spokesman added, In- 
volves local telephone companies not 
equipped to meter usage. In the past, 
they have charged each Foreign Ex- 
change user for 4.4O0 jnin/mo of use, 
which forced those with lower call- 
ing volumes to subsidise those with 
higher volumes. The commission la 
studying this problem and a decision 
is imminent, the spokesman said. /. 
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New Zip+4 rules eas6 access to discounts 



By Jake Khrhnvr 

CW WpfW«ton 9ure#u 

WASHINGTON, D.C. — The U.S. 
Postal Service (USPS) has issued new 
regulations to make it easier for mass 
mailers to obtain discounts by using 
nine-digit Zip Codes. The post office 
hopes the regulations will greatly in- 
crease participation in the new post- 
aJ automation program. 

The Zip +4 program went into ef- 
fect late last year after several years 
of controversy. However, the hoped- 
for success of the program, designed 
to bolster USPS productivity through 
greater automation, has been slow in 
developing. In part because mailers 
have had problems converting their 
address files to the longer Zip Codes. 

The new regulations, published 
Jan. 31. should make it easier for 
firms to qualify for the one-half cent 
discount for every piece of mail that 
carries a Zip + 4 code while phasing 
in full conversion to the new num- 
bers, according to USPS and postal 
experts. 

Postal regulations allow mailers to 
obtain a three cent discount for each 
piece of first -class mail delivered to a 
post office in bundles presorted by 
five-digit Zip Codes. Before the rules 
were modified, 100% of those letters 
had to carry a nine-digit code in or* 
der to qualify for the additional one- 



I 

I 

half cent discount. | 
But problems with the computer* 
ized Zip+4 data base tapes available 
from USPS and private sources havje 
made it very difficult to convert all 
files to the Zip+4 program. 

These difficulties have not de- 
terred the USPS from expanding i^s 



discount but, on a temporary basis, 
mailers will not have to separate mall 
Into the two presort categories. 

By having to separate the two cat- 
egories, mailers would have had to 
forfeit the three cent discount in or- 
der to qualify for a one-half cent dis- 
count, which understandably limited 
use of new. automated reading and Zip+4 participation. Under the new 
sorting equipment needed for the rules, until Feb. 1. 1986, at least 86% 

^^^^^^^^^ of the pieces In the 



Zip + 4 program. 
At a recent USPS 
Board of Gover- 
nors meeting, 
postal officials 
said the machines 
are reliably sort- 
ing approximately 
50% of the mail 
they handle — far 
above the break- 
even point, they 
said. The board 
then approved the 
next phase of 

equipment pro- 

rurvmcnls, total- 
ing 1450.2 million in machinery. - 
To prod more mailers to use the long- 
er Zip Codes, the new postal regula- 
tions allow comingling of five- and 
nine-digit Zip Coded mail in presort- 



The new regulations 
. . . should make it eas- 
ier for firms to qualify 
for the one-half cent, 

discount for every 
piece of mail thai car- 
ries a Zip + 4 code 
while phasing in full 
conversion to the new 
numbers. 



combined batches 
must have Zip+4 
numbers. From 
then until Oct. 1, 
1986, at least 90% 
must tear those 
numbers. There- 
after, no comin- 
gling will be al- 
lowed, and 
presorted five- 
and nine-digit Zip 
Coded mail must 
be bundled sepa- 

rately. Reacting to 

these changes. 
James E. Pehta, vice-president of List 
Processing Co., Lombard, HI., said the 
rules wilt bring into the Zip + 4 pro- 
gram many of the largest mailers, 
whose participation "is key to the su- 



ed bundle* of 500 letters. Only the cess of the {Zip+4J program," but 
letters with the nine-digit codes will who have been "sitting on the fence" 
qualify for the extra one-half cent because of the problems they have 



had In qualifying for the discount. 

Pehta, whose firm offers automat- 
ed Zip Code services, Is a member of 
the USPS Mailers Technical Advisory 
Committee, which represents private 
sector views to the agency and which 
helped to develop the new regula- 
tions. 

According to Pehta, of the 67 bil- 
lion pieces of first-class mall deliv- 
ered in fiscal 1983, 13 billion were 
presorted. 

About 4,000 of the largest mailers 
in the U.S. produce approximately 
40% of the mail, he added. 

Pehta predicted that as a result of 
the new regulations, the amount of 
mail with nine-digit Zips might hit 
two billion pieces in the first year, up 
from an estimated 300 million that 
could have been expected without 
the more relaxed regulations. 

He also noted that the new regula- 
tions contain provisions mailers must 
follow to certify that their mail 
meets requirements of the new rules. 
These will help the USPS track use of 
the Zip + 4 numbers. 

The USPS can use this statistical 
data to support requests for even 
larger Zip + 4 discounts, according to 
Pehta, who said a three to five cent 
discount for machine-readable Zip+4 
coded mail within four to five years 
is possible. 




Cures COBOL'S 
Common Code: 

tnterparagraph GOTOa 
ALTER Statements 
Attend GOTO Branches 
Fall Throughs 
Dead Code 

PERFORM Range Violations 

SUPERSTUCTURE takes 
your unstructured COBOL 
prograrnsand automatically 
produces structured 
COBOL programs that 
are easy to understand 
and maintain, 

SUPER- fflftk/ ^ 

^fjm 

cost effective after- 

native to ihanuaBy rewriting 

those unstructured programs that 

are a maintenance headache. . 

* We're so sure we can cure your 

coc^tfvitwelpTwerttoyc^usirigyCAir 

programs at your Icjcalioa Cail Martvating 

Director— SUPEflSTOK^ tor details. 

And soon ywrt breathe easier 

with urmngested COBOL 
.^^^htLi' •r-.-.-.-. , />>'-v 





Burroughs releases laser printer 



DETROIT — The North American 
release of the first laser printer for 
Burroughs Corp. mainframes was an- 
nounced by the company last week. 
The B9290-30, a 30 page/min intelli- 
gent laser printing system that oper- 
ates on-line with Burroughs systems, 
was first introduced in France seven 
months ago. 

The B9290-30 is compatible with 
Burroughs B2900. B490O. B5900, 
B6900, B7900 and the recently re- 
leased B9 mainframes. Running in a 
continuous print mode, the laser 
printer reportedly operates under 
both printer and host system soft- 
ware control. 

Burroughs said the printer allows 



flexibility in the design of printed 
forms (printing logotypes and signa- 
tures), the placement of data on the 
forms and the assembly of completed 
reports. Images are created by a laser 
diode with a resolution of 57,600 
dot/sq in. 

The B9290-30 can print on two 
sides of uncoated, 8H- by 1 1 -in. plain 
bond paper in either the portrait 
(standard text) or landscape (colum- 
nar) format with no loss of speed and 
completely collate and stack complet- 
ed reports in distribution order, the 
vendor said. 

The B9290-30 is priced at $65,000 
from Burroughs, 1 Burroughs Place. 
Detroit, Mich. 48232. 



2000 from page 7 



The only real. solution is to write all: 
new programs to be year 2O00TCom- 
patible. 

Not surprisingly, Schoen has de- 
veloped a method to do that. 'The 
Charmar Correction is a package con- 
sisting of two Cobol subroutines that t 
can be inserted into new programs to 
resolve the problem.; The $995 pur- 
chase price also includes an analysis 
of the problem; and a methodology to 
deal with It. . 

Program* mad#Jto wortc 

"They make programs work right, 
and they Include directions to make 
sorts simple/' ihe said. 

Schoen has {done some calculations' 
, to show why It makes sense to tackle 
the problem t^day. He figures It costs 
$300 to modify a program, and there 
Is a minimum of 50 programs per pro- 
grammer In t$e average corporate li- 



brary. Assuming that half of those 
programs will need to be modified, 
that comes to a cost of $7,500 per 
programmer if trje. conversion Is left 
until the last minute. 

Based on scans, of existing librar- 
ies, Schoen has decided that if firms 
begin implementing the changes now, 
by the year 2000 less than 2% of 
their programs will require modifica- 
tion. If they wait just six years to be- 
gin the process, the figure balloons to 
25% to 30% of their library. 

"Why should companies continue 
to write software that Is not year 
2000-compatible when it's Just as 
easy to do it the right way now?" he 
reasons. Not many DP managers have 
bought his argument so far. He has 
been escorted out of buildings by se- 
curity officers more than once, 
Schoen said. i 

Schoen's Charmar Enterprises can 
be reached through P.O. Box 702, 
Novt, Mich. 48050. 
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A Y2K pioneer seeks (and 
deserves) recognition 

Bill Schoen was passionate about the problem long before 
the world was ready to listen 

By Paul Gillin 

opinion. Aug. 3,1998 It was a frigid Wednesday in February 1984, and I 
was stumped for a story idea. The software business was dead that 
time of year — not good news to a guy who wrote about software 
for Computerworld. 



Then the phone rang. 
On the other end was 
a guy from Detroit 
who had an idea that 
was so offbeat, so 
screwy, that I thought 
it just might make my 
editors happy. It was 
good for a laugh, at 
least. 
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Read the Feb. 13, 1984 column 



Bill Schoen had this wacky idea that a lot of computers — I mean a 
lot of them — would stop working on New Year's Day 2000. Schoen 
wasn't just curious about this problem, he was passionate about it. 
He had even formed a one-man consulting company to try to 
spread the gospel. But no one, he said, wanted to listen. 

I listened. Heck, I was desperate. I interviewed Schoen, talked to 
one of his clients and wrote it up. My editors put the story on page 
7 of the Feb. 13, 1984, issue. It was the first article to appear in a 
major publication about the year 2000 problem (see the original 
story .) 

I spoke to Bill Schoen again the other day. Now 51, he's still in 
Detroit, still programming and a little amazed about how prophetic 
his crusade was. Though he wishes he could have had a piece of 
the five-figure speaking fees that top year 2000 consultants make, 
what Schoen really wants today is a little recognition. 

Schoen first stumbled on the year 2000 problem in 1983 while 
programming in the basement of a Big Three automaker. It wasn't 
rocket science; data processing people had known about the risk 
since the 1970s. It's just that no one thought their code would last 
http ://www. computerworld . com/home/features. nsf7 all/9 80803gillin 
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Schoen thought it might, and a little analysis of his employer's code 
library proved to him that software had considerably more staying 
power than many people thought. If business had started coding for 
the millennium in 1983, "95% of the problems wouldn't be there 
today," he says wistfully. 

For Schoen, the year 2000 problem became a mission. He coded up 
a little Cobol routine on his Commodore 64 that solved the problem. 
He named his company Charmar Enterprises and created the 
Charmar Correction, a cure for "the serious problem ignored by the 
entire data processing community." 

He was an army of one. Booted out of the CIO's office in some of 
the biggest companies in America, Schoen landed only two sales for 
the Charmar Correction. He folded Charmar's tent in 1984 and went 
back to programming. "I've never been able to rise above the level 
of working stiff," he says. c 



AHEAD OF HIS TIME 

Schoen's story is about missed opportunity and being too far ahead 
of the curve. The New York Times called him in 1988 to ask about 
the year 2000 problem, but Schoen was sick of rejection and asked 
the reporter not to quote him. His efforts to launch a year 2000 
consultancy last year fizzled when the client's CEO died. 

Now he's got a Web site that tells a little of the story of the guy 
who had an answer long before anyone else was asking the 
question. 

Visit Bill Schoen's Web site. Send him an E-mail. This guy was 
really on to something. 

Gillin is editor of Computerworid. His Internet address is paul Qillinmcw.com . 
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The problem you may not know you have 

There is a bug in every Cobol program in your library. 

You probably don 7 know about it, and you almost certainly haven 7 had to worry about it yet But 
when it shows up, it will hit your entire shop, reducing data entry procedures to a mush of error 
messages. 

By Paul Gillin 
CW staff 

NO VI, Mich. - When systems analyst William Schoen has presented DP managers with that pitch, 
he has understandably piqued their interest. But he has had trouble getting them to take his case 
seriously when they find out what the bug is. 

The problem is the year 2000. The turn of the calendar presents a procedural issue that is 
acknowledged occasionally in trade conference jokes and DP shop banter but has attracted little 
serious attention in the industry. 

The root of the issue is the industrywide standard of using two-digit year date fields in Cobol 
programs. Error-checking procedures typically rely upon dates proceeding sequentially, with one 
year's date being greater than that of previous years. 

However, programs will be thrown for a loop after the turn of the century when they have to cope 
with the two-digit date field "00" being greater than "99." Schoen ticked off the problems that will 
arise if the issue is not dealt with: "Program logic is going to malfunction all over the place. 
Sequential data processes are going to abend. A great many on-line modules won't accept the new 
dates because they include sequence checks. Most sorts won't work, and a great many literals won't 
work." 

Perhaps understandably, the issue has received little serious attention from a DP community that is 
concerned with more immediate problems. But Schoen claims data processing should start paying 
attention now to the problem of making programs "year 2000-compatible" in order to avoid 
headaches when the time of reckoning draws near. 

He rationalizes that most large firms maintain a library of thousands of Cobol programs, most of 
which have at least one date field. In addition, many of those programs have literals, sequence 
processes and error checks interspersed throughout, meaning that they will require modifications in 
several places. 

"You can't assume every date field has the word 'date' in it," Schoen said. "You also can't assume 
every field that looks like a date field is a date field. You're going to have to look at every program 
and figure it out." 



http://www.flash.net/-bschoen/article.html 
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For that reason, he said, the "black box" approach of simply running every program through a 
modification routine is impractical. Some date fields are bound to be missed. The only real solution 
is to write all new programs to be year 2000-compatible. 

Not surprisingly, Schoen has developed a method to do that. The Charmar Correction is a package 
consisting of two Cobol subroutines that can be inserted into new programs to resolve the problem. 
The $995 purchase price also includes an analysis of the problem and a methodology to deal with it. 



Programs made to work 

"They make programs work right, and they include directions to make sorts simple," he said. 

Schoen has done some calculations to show why it makes it makes sense to tackle the problem 
today. He figures it costs $300 to modify a program, and there is a minimum of 50 programs per 
programmer in the average corporate library. Assuming that half of those programs will need to be 
modified, that comes to a cost of $7,500 per programmer if the conversion is left to the last minute. 

Based on scans of existing libraries, Schoen has decided that if firms begin implementing the 
changes now, by the year 2000 less than 2% of their programs will require modification. If they wait 
for just six years to begin the process, the figure balloons to 25% to 30% of their library. 

"Why should companies continue to write software that is not year 2000-compatible when it's just 
as easy to do it the right way now?" he reasons. Not many DP managers have bought this argument 
so far. He has been escorted out of buildings by security officers more than once, Schoen said. 



Manager gets 16-year jump on Cobol bug 

TOLEDO, Ohio - Although he agrees that making Cobol programs "year 2000-compatible" is not 
an issue of immediate concern, a DP manager here has elected to become the first user of a set of 
subroutines designed to make the transition to the new millennium a smooth one. 

Michael Ehrick, director of computer services at Libbey-Owens-Ford, Inc., became interested in 
preparing Cobol programs for the inevitable march of time after he received a direct mail 
advertisement from William Schoen, a systems analyst based in Novi, Mich. 

Schoen' s Charmar Enterprises, Inc. markets a product that addresses the problems that may emerge 
when the year 2000 arrives and plays havoc with date fields in existing Cobol programs (see related 
story). His product is "a subroutine that does some elegant arithmetic routines that let you compare 
date fields with two-digit years in such a way that the year '00' is greater than the year '99,'" Ehrick 
said. Schoen also offers an approach to sorting so that the same end is achieved, according to 
Ehrick. 

Ehrick put Schoen in contact with Libbey-Owens-Ford 's manager of application development. The 
company expects to begin including the subroutine in new applications as soon as the next 

http://www.flash.net/~bschoen/article.html 1/12/( 



flevelopment project is undertaken. 

The subroutines are "nothing an advanced computer science major couldn't do," Ehrick said. But he 
added, "a lot of creative thought went into this, along with a lot of dogmatism." 



Copyright 1984 Computerworld Inc., Framingham MA. 
Reprinted by permission of Computerworld. 
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An inside account 
by the architects 
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IF all goes as scheduled, Intel will introduce its highly anticipated MMX 
(multimedia extensions) technology with the Pentium processor iater this 
month. Thus begins one of the most heated races among chip designers 
worldwide: to create or add multimedia function^ that allow for the speedy 
use of 3D graphics, audio. vidf \ ^nd enhanced cornn"iunicu:::r.£. I:::e! 
may be the biggest player, but the competition is indeed fierce with sever- 
al smaller firms perhaps better equipped to design special media processors 
than the e mighty, multipurpose chip giant. Indeed, MMX marks the first 
major change Intel has made to its chip instruction set technology in over 
a decade. 

This month's cover story is an inside, in-depth account of Intel's cre- 
ation of MMX technology as told by three of its principal architects: Alex 
Peleg, Sam Wilkie, and Uri Weiser. They explain how MMX — and its 57 
new instructions and other enhancements — hikes system performance dra- 
matically. Their report explores the many features of the technology using 
simple examples as guidelines. 

In other news this month, we learn from Andrew Grimshaw and 
William Wulf of a fascinating new concept in virtual world computing 
called "Legion." Carey Nachenberg traces the current causes, effects, and 
remedies of computer viruses and explores what we can expect in the 
future. Deborah Johnson interprets the controversial issues related to ethi- 
cal behavior online. And O'Leary, Kuokka, and Plant detail the use of arti- 
ficial intelligence, particularly software agents, to facilitate virtual 
organizations. Finally, we present a special section on the latest advances in 
high-assurance systems engineering spearheaded by guest editors Sourav 
Bhattacharya, Akira Onoma, and Farokh Bastani. 

WITH this issue we begin taking steps in a new editorial direction to 
enhance our own performance as a vehicle for communicating the latest 
industry developments and technology innovations. Guiding us on this 
journey is a new Communications advisory board comprised of 27 noted 
experts representing a strong mix of industry, academia, and research. 
They will help pinpoint newsworthy topics, anticipate industry trends, 
and identify authors to pursue. 

We will also be introducing new features and columns in coming 
issues. We begin this month with a new column called "On Site" designed 
to provide a forum for first-person experiences with new applications, 
unique solutions to common technical problems, or innovative new uses 
for existing tools and techniques. Associate Editor Robert Fox starts us off 
with a report of his experiences visiting two of the best examples of elec- 
tronic public libraries. He wonders how the general public will respond to 
the digitization of its local library facilities and we think his findings will 
surprise you. 
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The Next Date Crisis and 
the Ones After That 



Robert L Glass 

Reality is the murder 
of a beautiful theory by a 
gang of ugly facts. 



*m sure you already know 
about how all information sys- 
tems will go berserk when the 
| It? vear 2000 comes, the so-called 

"dart crisis" everyone is talking *f -5 
aoout. fc r l 

This column is about a date cri- 
sis. But not that date crisis. I * 
want to talk about the one that 
comes after the one everyone 
knows about. 

First, to make sure we're all on 
the same page, let me describe the 
dace crisis everyone already knows 
about. Dates in most information sys- 
tems are stored in the form 
MM/DD/YY. That is, two digits are . 
. used for each month, day, and year. 
That's not a problem for months or 
days, of course. 
^ £ uc years? Big problem. Even 

^S|^^4Sbugh most of us say u the 90s" and 
[^9#§Sn . many other ways use years as if 
Sf^^^wo. digits were enough, we're 
^gl^japproaching 2000, when two digits 
^0 g simply aren't sufficient to do the job. 
SfvJtM s-? J^? 1 ? °f information systems do arith- 
hS^fe'M 16 ? 0 on dates (e.g., how old is a per- 
^•^^^^whose birthdate is 02/03/32?). 
§™rmation-systerh arithmetic will 





fail come the year 2000. (By the way, 
here's the answer to the question — in 
1999, 67. In 2000— "minus" 32.) 

Remember, this column is not 
about that date crisis. I'm assuming 
nearly everyone has read and listened 
co some of the thousands of words 
spilled over the last several years on 
this topic. And I'm also assuming 
nearly everyone is aware the crisis is 
almost inevitable because hardly any 



companies. have allocated and spent 
the resources necessary to fix the 
problem. There will be a crisis at the 
turn of the century, although it prob- 
ably won't be the World War III 
some consultants are hyping it to be. 

What, then, is the date crisis I 
want to discuss? 

No matter how — or if — an enter- 
prise solves its year-2000 date crisis, 
another one is coming. And the form 
of the solution chosen for this partic- 
ular crisis may determine when the 
next crisis will occur. 

First of all, let's state the obvi. 
ous: There is no permanent solution 
to the date crisis. Whereas the 
months of the year recycle after 12, 
and days of the months recycle after 
about 30, years just keep marching 
on toward infinity. And computers 
with their finite word lengths can- 
not hold them forever. That explains 
part, but not all of, the next date 
crisis. 

Let's say you decide to employ 
what to most people in 1997 is the 
obvious solution to this dace crisis — 
the four-digit year. You change all 
your data files and data declarations to 
accommodate a couple more digits per 
year, test all the software affected by 
the change, and sit back and sigh the 
sigh of satisfied relief: one more crisis 
solved. Not so fast. Your solution is 
certainly valid for the foreseeable 
future, of course. But it will fail come 
the year 10000. As surely — and in the 
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same way — as the 2000 dace crisis. 

It s hard to get excited about a 
future 8,000 years ahead. For one 
thing, you're probably saying, "What 
are the odds that information systems 
as such will be around that long?" 
Except that's the same kind of think- 
ing chat got us into the year 2000 e 
mess. No one believed, back in 1975, 
the information systems of that day 
would last another 25 years. 

Still, no one is really going to 
worry about the four-digit solution. 
After all, the five-digit solution — or 
any other solution you contem- 
plate — will also have its very own 
day of doom associated wich it. How 
far off is it necessary to postpone this 
problem? 

There are other, more sinister, 
forms the next date crisis can take. In 
fact, the Unix operating system 



the procedure decide whether the 
date 56 represents 1956 or 2056? 
The answer is usually a bad one, 
going like this: Pick an arbitrary date 
that will be accurate today and use it 
as a watershed date. For example, any 
year less than 50 is in the next cen- 
tury, and any greater than or equal to 
50 is in the previous one. Ergo, 56 = 
1956. Problem solved? 

Today, perhaps. But what happens 
as we approach 2050? The solution 
comes unglued, just as badly as the 
year- 2000 problem. Or perhaps 
worse, because the solution is local to 
the enterprise (other companies 
might have chosen 60 or 70 instead 
of 50) and thus there will be fewer 
cries of warning next time. But no 
one would use this solution, you may 
say. Not true. A consultant writing - 
in a leading journal proposed it 



dates have always been kept in deci- 
mal form in our binary (and, before 
that, decimal) computers, we assum. 
blindly it must always be so. In 
doing so we neglect another form of 
data that computers use — binary. 
Suppose we store the year in binary 
rather than decimal form? 

Most years today, being in YY 
form, occupy 16 bits (two eight-bit 
bytes). (This is not universally true. 
For example, Cobol has a numeric 
form called "packed decimal" that 
alcernatively allows digits to be 
stored in four-bit form, so with 
packed decimal, a year would require 
8 bits.) If a number is stored in 
binary form in 16 bits, it can be as 
large as 65,536 (64 K). That is, using 
the same two bytes that YY occupies 
a year of up to 65536 could be storec 
without increasing the memory size 



the information systems of that day 
would last another 25 years. 



apparently has its own built-in date 
crisis ticking away like a time bomb, 
:.r.d it's difficult to predict precisely 
when this particular bomb is going 
to explode. 

But for now let's continue to talk 
about IS applications. Most enter- 
prises, as I've said, will employ the 
four-digic-year approach. Some are 
troubled by the expansion of data- 
bases if all the two-digit, years get ■' 
converted to a bietrer number.- 

Because of chat, some companies, 
are trying another solution: Keeping 
the two-digit dates on file, but hav- : 
ing a procedure in the program to ; 
convert each date before its four-digit 
equivalent is used. So far, so good. 
This solution contains a serious prob- 
lem, however. For instance, how does 



within the last 10 months. How 
many companies are following that 
very bad advice? 

The peine is the date crisis is a 
"pay me now, and pay me later" kind 
of problem. There will be another 
date crisis sometime in the future, 
and the decisions enterprise IS people 
make today will ue term in;- when chac 
next crisis will be. 

At this point, you may find your- 
self sympathecic with those con- 
cerned about the increase in storage 
consumed by the four-or-more digit 
year. Given that the "greater chan 
50" solution is a bad one, is there any 
other solution that will prevent data- 
base expansion? 

Turns out there is one and hardly 
anyone is talking about it. Because 



in the database. In order to use this 
solution, however, the database 
would have to be rewritten with 
years in binary form, the program 
logic would have to declare years as 
binary (there's a form of computational 
in Cobol that will do the trick), and 
all the program date logic would 
need to be checked co maKe sure 
nothing more is affected by the 
change (it is possible the logic may 
not need to change, except for 
human-readable outputs). (Note this 
solution is not valid for packed deci- 
mal daces, discussed earlier. Whereas 
16 bits gives 64K, 8 bits only gives 
256, insufficient to store years.) 

So in this "pay me now and pay 
me later" game, you pay your money 
and you take your chances. You can 
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have another date crisis in the next 
century (around 2050 or so), at 
10000, or at 65536. The choice is 
yours. There are pros and cons to each 
approach. Only the technologist in 
charce of an enterprise's suite of 
applications can make the best deci- 
sion, because there is no universal 
best one. Although the four-digit 
so! : ion comes close. 

And what about the Unix-unique 
date crisis mentioned 'earlier.*' 

Here's my understanding of what 
happens in Unix. Bear in mind that I 
am not a Unix guru. It may very well 
be that I'm wrong. I hope I am. But 
if I am correct there may be a date 
crisis for applications on Unix sys- 
tems that could become the mother 
of ail date crises. 

Unix has a device called "Unix 
time," the measurement of time in 
seconds from a base time— the first 
day of 1970. Unix time, by 1997, has 
gotten quite large. There are roughly 
31 million seconds in a year. In 27 



years, we have piled up 27*31 mil- 
lion, or 837 million seconds. The 
number is constantly increasing — by, 
for example, 300 or more since you 
started reading this column. 

Numbers in computer speak are 
finite. No matter how large a fixed 
space you set aside, as numbers 
charge madly toward infinity they 
will outgrow their space. Will Unix 
time outgrow its space? Inevitably. 
The question is, when.*' 

The answer is hardware depen- 
dent. A computer's word length 
probably determines the date on 
which Unix rime will overflow. (Go 
from the biggest number back to 0 
when the capacity is exceeded). Lets 
make a typical case assumption and 
say a computer has a 32-bit word. If 
my arithmetic is correct, Unix time 
will overflow around 2035- Sooner 
than even the worst of the date crisis 
solutions contemplated, and even 
sooner for smaller-word processors. 

This is one of those "surely I'm 



wrong" kinds of findings. Surely the 
designers of Unix anticipated such a 
problem and have provided for it. 
Does anyone in my reading audience 
know? If so, tell me and I'll pass the 
answer on in a later column. In a way, 
it sounds like I'm crying "fire' in a 
crowded tneater. if there is no rire, it's 
important I be set straight. But if I'm 
right, it's time to begin talking about 
what Unix and its application pro- 
grammers must do. 

So we see that there's yet another 
software date crisis (YASDC) com- 
ing. That if you're using Unix you 
may have very little choice about the 
date it arrives. That for all IS appli- 
cations, using Unix or not, there's no 
choice as to whether there will be 
YASDC. Your only choice is ivhen to 
schedule it. G 

Robert Glass is the publisher of the 
Software Practirioner newsletter and editor of 
Elsevier s Journal of Sysrems and Software. He 
welcoitm feedback: J 41 6 Sare Rd.. Bloomington, 
IN 47401. 
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Method of Sorting Dates and Time Allowing for Wrapping 



Disclosed is a method of sorting dates, times, or other data which may wrap the counter. The 
n^thod does not require specification of an arbitrary window which is assumed to contain the 
but rather uses the data and the information that the numbers are all ^en modulo some- 
thing in order to determine the correct ordering. Specific applications include problems of 
sorting two-digit years which may cross a century boundary, months which may encompass the 
of the year/and times which encompass midnight. The algorithm applies to sorting all 
cyclical groups of numbers; the sorted numbers need not represent time. 

The problem solved may be illustrated with dates in the neighborhood of the ^year 2000. 
The years labelled '03, '05. '02, '99, '96, would property be sorted chronologicaUy as 96, 9", U2, 
S '05 A conventional sorting routine would sort them as '02, '03, '05, '96, '99. To obtam the 
correct sorting, a traditional approach is to pick an arbitrary year and assume that all dates are 
after that year, pre-append the appropriate century, and then use a conventional sorting ; algo- 
rithm. For example, one might assume that all the specified dates are after the year 1975. So 96 
must mean 1996 and '03 must mean 2003. The disclosed method avoids this arbitrary designation 
of a date. Instead, it examines the data, taking into account the possibility of wrapping, finds the 
largest gap, and then shifts the sort so that the number after the largest gap comes firsL For the 
dates 'oT : 03, '05, '96, '99, the successive differences are 1, 2, 91, 3, and 3 years. The second 
difference of 3 is found by using the understanding that the original numbers are given modulo 
100, i.e. using circular subtraction. Since the third difference, 91 ; is the largest, the fourth date, 
'96, should come first, and the correct sorting is then '96, '99, '02, '03, '05. 

Let MAXNUM be the largest possible number representable, that is, one less than the 
modulo base. For example, the largest year representable with two digits is '99. We wish to sort 
the array A(i), taking into account the fact that the numbers A(i) may wrap. The method is 

1 . Sort the numbers A(i) using a conventional sorting routine. 

2. Find the largest gap in the sorted numbers, using circular subtraction. For N numbers, this is 
illustrated with the pseudocode 

DIFFMAX = A(l) + MAXNUM + 1 - A(N) 

STARTI = 1 
do 1=1 to N-l 

DIFF - A(I+ 1) - A(I) 
if DIFF > DIFFMAX then do 
STARTI =1+1 
* DIFFMAX = DIFF 

end 

' The largest gap, of size DIFFMAX, occurs before A(STARTI). In case of ties, this algo- 
rithm chooses me first occurrence of the largest gap. 
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Method of Sorting Dates and Time Allowing for Wrapping - Continued 

3. Shift the sorted numbers so that the number after the largest gap comes first. That is 
J = STARTI 
do 1=1 to N 

B(I) = A(J) 

J = J + 1 

if J > N then J =1 
end 

The array B(i) now contains the numbers, sorted by what is likely to be the correct order 
when the possible wrapping is taken into account. The array B(i) is introduced only for illus- 
trative purposes. Other means may be used to shift the array so that the first element 
becomes what was A(STARTI) and the circular order is maintained. 

This algorithm will produce proper orderirigs as long as the numbers are reasonably close 
together in the circular sense. It has the advantage that the algorithm itself will never become out 
of date. Whether it is appropriate to use depends on the anticipated scatter of the circular data. 
Years do not typically have a great deal of scatter, which is why notation which drops the century 
has come to be employed. The algorithm may be expected to work well with such data. The key 
requirement is that the numbers fall into some reasonable span. A person contemplating sorting 
the dates '05, '95, '99, and '01 would probably assume that '99 comes before '01. How would 
they know? They would know of the possibility of wrapping, and guess that wrapping did occur 
for the little numbers because with that assumption the total span of years is much smaller. The 
above algorithm accomplishes this minimizing of the total span of years. 
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Method of Sorting Dates and Time Allowing for Wrapping 



Disclosed is a method of sorting dates, times, or other data which may wrap the counter. The method 
does not require specification of an arbitrary window which is assumed to contain the times, but rather 
uses the data and the information that the numbers are all given modulo something in order to determine 
the correct ordering. Specific applications include the problems of sorting two-digit years which may cross 
a century boundary, months which may encompass the end of the year, and times which encompass 
midnight. The algorithm applies to sorting all cyclical groups of numbers; the sorted numbers need not 
represent time. 

The problem solved may be illustrated with dates in the neighborhood of the year 2000. The years 
labelled '03, '05, '02, '99, '96, would properly be sorted chronologically as '96, '99, '02, '03, '05. A 
conventional sorting routine would sort them as '02, '03, '05, '96, '99. To obtain the correct sorting, a 
traditional approach is to pick an arbitrary year and assume that all dates are after that year, pre-append 
the appropriate century, and then use a conventional sorting algorithm. For example, one might assume 
that all the specified dates are after the year 1975. So '96 must mean 1996 and '03 must mean 2003. The 
disclosed method avoids this arbitrary designation of a date. Instead, it examines the data, taking into 
account the possibility of wrapping, finds the largest gap, and then shifts the sort so that the number after 
the largest gap comes first. For the dates '02, '03, '05, '96, '99, the successive differences are 1, 2, 91, 3, 
and 3 years. The second difference of 3 is found by using the understanding that the original numbers are 
given modulo 100, i.e. using circular subtraction. Since the third difference, 91 , is the largest, the fourth 
date, '96, should come first, and the correct sorting is then '96, '99, '02, '03, '05. 

Let MAXNUM be the largest possible number representable, that is, one less than the modulo base. 
For example, the largest year representable with two digits is '99. We wish to sort the array A(i), taking 
into account the fact that the numbers A(i) may wrap. The method is 

1. Sort the numbers A(i) using a conventional sorting routine. 

2. Find the largest gap in the sorted numbers, using circular 
subtraction. For N numbers, this is illustrated with the 
pseudocode 

DIFFMAX = A(l) + MAXNUM + 1 - A(N) 

START I = 1 

do 1=1 to N-l 

DIFF = A(I+1) - A(I) 

if DIFF > DIFFMAX then do 

START I =1+1 

DIFFMAX = DIFF 

end 

end 

The largest gap, of size DIFFMAX, occurs before A(STARTI) . In 
case of ties, this algorithm chooses the first occurrence of the 
largest gap. 

3. Shift the sorted numbers so that the number after the largest gap 
comes first. That is 

J = STARTI 
do 1=1 to N 
B(I) = A(J) 
J = J + 1 

if J > N then J = 1 

end . _ . . _ 

The array B(i) now contains the numbers, sorted by what is likely 
to be the correct order when the possible wrapping is taken into 
account. The array B(i) is introduced only for illustrative 
purposes. Other means may be used to shift the array so that the 
first element becomes what was A (STARTI) and the circular order 
is maintained. 



This algorithm will produce proper orderings as long as the numbers are reasonably close together in 
the circular sense. It has the advantage that the algorithm itself will never become out of date. Whether it 
is appropriate to use depends on the anticipated scatter of the circular data. Years do not typically have a 
great deal of scatter, which is why notation which drops the century has come to be employed. The 
algorithm may be expected to work well with such data. The key requirement is that the numbers fall into 
some reasonable span. A person contemplating sorting the dates '05, '95, '99, and *01 would probably 
assume that *99 comes before '01 . How would they know? They would know of the possibility of 
wrapping, and guess that wrapping did occur for the little numbers because with that assumption the total 
span of years is much smaller. The above algorithm accomplishes this minimizing of the total span of 
years. 
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Abstract 

As the 21st century approaches, many computer pro- 
grams will begin to fail Applications that rely on dates 
of any kind may simply stop working or produce 
incorrect results. The year 2000 problem is a matter of 
business importance, not just software maintenance. 
Program failures arise from representing calendar dates 
(year, month, and day) in just 6 digits, a format that 
allow only 2 digits for the year, the Year 2000 problem 
is pervasive. It occurs in calculations, comparisons and 
other logic involving date-related processing including 
date -oriented sorting and date-indexed tables. The 
problem occurs in data bases and files as well as in 
code. This paper discusses the design of an automated 
software tool for code and data Y2000 correction and 
shows how to use the tool in a large scale system 
correction process. The solution is discussed in the 
context of large, COBOL-based commercial systems. 
Nonetheless, our approach is fully generalizable to 
other languages and classes of applications. 

Keywords: Year 2000, logical code analysis, code 
correction, code enhancement, attribute grammars, test 
data generation. 

I. Year Representation 

Our first decision in attacking the Y2000 problem [2] 
involved the data representation for years. There are any 
number of alternatives, such as adding a century 
indicator to a 2-digit year and representing a date as a 
number of elapsed days since some starting time. Based 
on input from our potential customers and our assess- 
ment of common practice (at least in the US), we 
decided to use a 4-digit year representation. Our 
approach will work for other date representations, but 



our discussion is centered around a 4-digit year 
representation. 

Date Representation 

Existing code shows a variety of approaches to year 
representation. The general approaches are: 

1. Ignore the century. Dates have 2-digit year fields. 

2. Use a one-digit century' indicator ("CI") in 
conjunction with the 2-digit year field. The CI 
might have a value of 0 for 1800, 1 for 1900, and 
so on. Actual usage is not consistent 

3. Use a 2-digit century indicator. Depending on the 
base value and field position, this approach can be 
equivalent to the 4-digit representation. 

Advantages of the 8-digit Date with 4-Digit Year 

The decision to use a true 8-digit date (four digits for 
the year and two each for the month and day) 
representation has important advantages over various 
shortened forms or century indicators. Compared to 
current practice, we found that a four digit year has 
advantages including: 

• Compatible, consistent, and portable code. 

• Readable, maintainable, and reliable systems. 

• Smaller and faster code. 

• Simplicity and completeness. 

The only possible disadvantage of the 8-digit date is that 
data fields are longer (8 bytes rather than 6 or 7). This 
requires slightly more file space, which is not considered 
to be a significant enough to outweigh the benefits. If 
necessary, however, 8-byte date fields can be easily 
packed into 4 bytes before file storage. 

Correction Overview 

The Peritus AutoEnhancer/2000™ is built on the 
Peritus Code Analyzer, a rules-based tool for logical 
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code analysis [6, 7]. AutoEnhancer/2000 will convert 
existing code so that all dates containing year and/or 
century information are represented by a 4-digit year. 
AutoEnhancer/2000 will identify all appropriate date 
variables, change their definitions, and convert all code 
and constants that involve dates and date computations. 

The converted code will be able to handle dates that 
span centuries (1800s, 1900s, and 2000s at least). Date 
operations will include comparisons (is one date earlier 
than another?), subtractions (compute age by subtracting 
date of birth from issue date; compute time since issue 
date), and additions (add surrender period to issue date). 
In order to meet these and other requirements, 
AutoEnhancer/2000 will represent complete dates with 
definitions such as: 

01 ISSUE-DATE PIC 9(8). 

01 ISSUE- DATE- YKD REDEFINES ISSUE -DATE . 

02 issue-yyty pic 9999. 

02 IS SUE -MM PIC 99. 

02 ISSUE-DD PIC 99. 

Years are represented by four digits, with two digits 
each for the century and year within the century. Also, 
dates are arranged from most significant (century and 
year) to least significant (day). Date constants will be the 
"true value" with no base value. For instance, 

MOVE 19440212 TO IS SUE -DATE 

refers to February 12, 1944, and 

IF ISSUE- DATS GREATER THAN 20010121 

refers to January 21, 2001. 

n. Identification 

The core problem in solving the Y2000 problem is to 
identify those variables and constants that are date 
sensitive so that the code and data files can be corrected. 
The AutoEnhancer/2000 approach is an extension of the 
type checking that is done by compilers for many 
programming languages. In conventional programming 
languages, however, types are only checked for values 
such as integer or real, or aggregates (arrays, structures) 
of these types. Type conflicts are normally resolved by 
converting data representations or by generating an 
error. AutoEnhancer/2000 Y2000 type checking and 
propagation are more extensive. 

Syntax-directed translation and type checking are 
explained in Chapters 5 and 6 of Compilers: Principles, 
Techniques, and Tools [1], The underlying concept is the 
attribute grammar. 

A syntax-directed definition or attribute grammar is a 
generalization of a context-free grammar (or BNF) used 
to define the programming language. From [1], p. 280: 



Each grammar symbol has an associated set of 
attributes, partitioned into two subsets called the 
synthesized and inherited attributes of that grammar 
symbol If we think of a node for the grammar symbol 
in a parse tree as a record with fields for holding 
information, then an attribute corresponds to the 
name of a field... The value of an attribute at a 
parse-tree node is defined by a semantic rule 
associated with the production used at that node. The 
value of a synthesized attribute at a node is computed 
from the values of attributes at the children of that 
node in the parse tree; the value of an inherited 
attribute is computed from the values of attributes at 
the siblings and parent of that node. 

In general, the synthesized (or bottom-up) attributes 
are the easiest to compute, although the top-down in- 
herited attributes are sometimes necessary. For example: 

MOVE BILLING-DATE -YR TO DURATION-WS 

causes duration-ws to receive a synthesized attribute 

from BILLING-DATE- YR, Or it CaUSeS BILLING-DATE-YR tO 

receive an inherited attribute from duration-ws. How 
this attribute propagation is done is determined by what 
attributes are already known. In 

IF YR- OP -INCREASE > 84 

COMPUTE YR-OF- INCRSB- PLUS1 = 
YR-OF-INCRSE-YR + 1 

the two constants receive inherited attributes from the 
variables they are combined with and assigned to. 

Definition of Terms 

1. variable refers to named variables and structures, 
regardless of whether they are I/O fields, working 
storage, or occur in the linkage section. 

2. I/O variables are fields defined as part of a file 
record, a CICS screen, or JCL. 

3. A variable is date-sensitive if its format attribute 
contains y (year) or c (century). 

4. An initial date seed is a date I/O variable. An 
initial seed must be an actual date and not an 
elapsed period of time, such as an age or policy 
term. 

5. A derived date seed is a date-sensitive I/O date 
variable found during the AutoEnhanc^r/ZOCO 
Identification phase. 

The Identification Method 

Date-sensitive variables and constants, then, are those 
that require new declarations, modified code logic, or 
other changes in their use when converting a program 
from 2-digit to 4-digit year representations. Most 
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proposed solutions to the Y2000 problem are based on 
using pattern matching to create a "suspect list" of 
variables that appear to be date-sensitive. Pattern 
matching tools can be put together very quickly using 
UNIX utilities such as grep, but pattern matching has a 
number of shortcomings: 

• False positives. The variable premium-year-to- 
datb would be incorrectly added to the suspect list 
as "year' 1 and "date" are obvious patterns for a 
date-sensitive variable. 

• False negatives. The variables term and 
dctratiok-ws below are examples, where we have 
statements such as: 

MOVE BILLING-DATB-YR TO DURATION-WS 
SUBTRACT ISSUE -YEAR FROM DURATION-WS 
COMPUTE TERM = TERM - KS- OPT I ON -YEARS 

• Date-sensitive constants are ignored. Consider this 
code, where 84 probably means 1984, 30 may or 
may not be 1930, and 1 almost certainly refers to 
an elapsed time of one year: 

MOVE 30 TO TERM 

IF YR- OF -INCREASE > 64 

COMPUTE YR-OF-INCRSE-PLUS1 = 
YR-OF-INCRSE-YR + 1 

• Date-sensitive variables and constants are not 
identified according to their context A constant 
should be identified as date sensitive by virtue of 
the statement it occurs in and the variables that it 
is combined with rather than by its name alone. 

• A pattern-matching suspect generation strategy 
only identifies the names that are suspected of 
being date-sensitive. It is still necessary to 
determine manually which suspects are date- 
sensitive and to correct their definitions, and it is 
also necessary to correct some statements that they 
occur in, including I/O statements. 

Attributes as Used by AutoEnhancer/2000 

These are the specifications for the attributes that are 
maintained with each symbol and constant in the 
AutoEnhancer/2000 Identifier symbol table (global and 
local attribute database) during the front end and 
identification stages. Each attribute and its value range 
is specified, along with basic consistency rules, 
1. Format attribute 

Values: century or c 
year or Y 
month or M 
day Or D 

zero or z for unknown 



a) Combinations of these, with each attribute letter 
indicating a byte, such as: 

YYMKDD 

CYY 

MKDD 

b) The order is important, and this scheme allows t 
date representation such as: 

MKDDYY 

which might be generated for a report, whereas 
the data may be stored internally in the more 
common yykiisd format. 

c) Structure elements are represented by sequence, 
of format/offset pairs, where the offset is the byte 
position within the structure. A structure with 
four fields, in order: 

CYY 

YYMMDD 

is represented by the format/offset nairs: 
<cyy, o> 

< YYMMDD, 3> 

<DD, 10> 

2. A date is distinguished from a date-sensitive 
duration (an elapsed period of time). Identification rules 
specify, for example, that the subtraction of two dates 
produces a duration, or adding a date and a duration 
produces a date. 

3. Base attribute 

Values: Integers corresponding to the Format, 

such as: iboo for a cyy attribute. 
AutoEnhancer/2000 maintains these attributes in a 
variable length string associated with each variable. 

More Theory and Some Practice: Locally and 
Globally Equivalent Variables 

During initial lexical and syntactical code analysis in 
the AutoEnhancer/2000 Front End, AutoEnhancer/2000 
creates a database of variable relationships called the L, 
or "local equivalent" relations. Two variables are locally 
equivalent if they must have the same format and base. 
Only these attributes are equivalent; the variables may be 
totally distinct 

1. Variables X and Y are related by L (written as 
L[X, Y]) if they must have the same format 
attributes. 

2. AutoEnhancer/2000 enters the fact that L[X, Y] 
whenever X and Y occur and "interact" through 
redefines, I/O, or in the same expression, such 
as: 

MOVE X TO Y 
COMPUTE X «= Y + 2 
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3. L is an "equivalence relation/ It does not matter 
if you write L[X, Y] or L[Y, X]. Furthermore, L 
creates chains of equivalent formats, so that if 
L[X ? Y] and L[Y, Z], then L[X, Z]. This chaining 
is the key factor driving the AutoEnhancer/2000 
Identifier. 

There is a similar "global equivalent" relation, G. 
Whenever two variables match through linkage sections, 
AutoEnhancer/2000 says they are globally equivalent 
This determination, however, occurs later. 

The eoal is to find all variables that are globally (G) 
and locally (L) equivalent. We then compute the 
transitive closure of the G and L relationships to find the 
entire set of variables that have equivalent format. In 
mathematical terms, we created a relation called F to 
denote equivalent formats. We compute the closure of 
the L relation, add the result to the current G relation, 
take the closure of the result and then repeat the entire 
local and global closure cycles to get F. This is: 

F=(L* union G)* which is the same as (L union G)* 

This simply means that we trace all the equivalent 
format relationships through the code and keep on 
tracing until every date-sensitive variable is accounted 
for. The "union" is set union and the * is the "transitive 
closure" operator which traces these relationships. 
"Transitive" means that we trace the relationships, and 
"closure" refers to the fact that we trace the transitive 
relationships until there are no changes, or the 
relationship is "closed." 
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We also perform ''system closure'* which passes 
format information from one program to another using 
the formats of shared files. System closure requires 
processing of JCL (Job Control Language) to determine 
the files that are accessed by the programs. 

Puttina the Theory Into Practice: Attributes for 
Y2CC0 Identification 



In practice, the AutoEnhancer/2000 Identifier does not 
actually compute F. It propagates the formats to 
equivalent variables, which is the desired result. At the 
end, all equivalent variables have the same format. 

AutoEnhancer/2000 has three stages, the Front End 
(FE), the Identifier, and the Corrector. 
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Figure 2. The AutoEnhancer/2000 Front End, Identification 
and Correction Phases 

During the AutoEnhancer/2000 Front End (FE), the L 
relationship is initialized The PIL (intermediate 
language) is generated to be used by the Identifier. 

The AutoEnhancer/2000 Identifier adds more L and G 
relationships (what it really does is make the formats the 
same) by examining the code of a compile module: 

1. The initial seeds establish the date formats for 
some I/O variables. Initial seeds are specified by 
the user based upon well-known information, 
such as the dates that appear on a screen or 
report. Once common shared files are formatted, 
very little additional seeding is required. 

2. Every time variables interact through subroutine 
calls or shared files, they are added to G. 

3. Every occurrence of a redefines creates an L 
relationship between the variables and fields 
within structures. 

4. Every move of a part of a record or array creates 
an L relation between the target and destination 
fields. 

5. Whenever a variable is truncated so that the YY 

7>art of a variable is lost, any existing L relation 
between *h - virii ; s remov^ 

6. At every step where an addition is made to G or 
L, the Identifier updates the transitive closure, F, 
and propagates attributes among related variables. 
A report "reasoning" entry is also generated. It is 
possible to trace the format of any variable. 

The AutoEnhancer/2000 Identifier continues this 
process through all the compile modules until there are 
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no changes to any formats. This may require several 
passes through the compile modules to account for all 
the subroutine linkages. 

When the process is complete, the attribute databases 
contain all the information on variables of all types. 
From this, the derived seeds (both date and non-date) 
can be determined directly from the format attributes. 
Format attributes are also used as input to the correction 
phase. 

The AutoEnhancer/2000 rront end uses standard 
compiler t?rh:irc!:e« [1. 8, 9], The rules- based subsystem 
is implemented using Clips [11]. The intermediate 
language (PIL) is based on Dijkstra guarded commands 
[3, 4, 5]. 

Hi. Code Correction 

The AutoEnhancer/2000 Code Correction Phase 
follows the Identification Phase. Code Correction uses 
correction requests venerated during Identification. Each 
correction is driven by a "correction rule" which is 
invoked when certain code usage patterns are identified. 



Upon completion of Identification, the Attribute 
Database contains an entry, with format, for every 
variable. From this information, the Corrector can 
determine which variables are date-sensitive (containing 
year and/or century information) and which of those are 
dates (being actual dates and not elapsed times, such as 
an age). The correction rules used are invoked based on 
the actual "Old Code" and the attributes of the variables 
involved that occur in a line, or group of lines, of code. 

Each correction rule must change the existing "Old 
Code" (OC) into "New Code" (xNC) such that: 

• The New Code properly deals with 4-digit years 
rather than 2-digit years and century indicators. 

• The New Code preserves the logic of the Old 
Code. 

• The New Code contains constants that properly 
represent 4-dieit vears. but the corrector must not 



adjust OC constants that do not represent years and 
centuries. 

• Any OC dealing with century indicators must be 
removed, but any logic dealing with century 
indicators must be preserved in the Y cai 
logic. 

The following information is provided for each rule: 

• The rule name. 

• An informal English language, description of the 
rule. 

• One or more examples of using the rule. 

• A proof that the rule is correct. That is ? the NC 
and OC behave in exactly the same way. 

• The actual ruie, expressed in the 
AutoEnhancer/2000 rule language [10]. 

The rule description and examples 2re used to 
understand the nature of the code changes, conformance 
to coding conventions, etc. The correction rules are 
grouped into three categories, corresponding to the order 
in which the AutoEnhancer/2000 corrector applies them. 

• Isolation Rules separate the date-sensitive and 
non-date -sensitive variables. On completion, the 
Attribute Database will contain all date-sensitive 
variables and their formats. 

• Data Division Correction Rules correct the data 
division, primarily merging year and century fields 
and widening fields to accommodate 4-digit years. 

• Procedure Division Correction Rules correct the 
code, primarily adjusting constants and removing 
century indicator logic. 

Within each category, many of the rules deal with 
overhead tasks such as initialization or printing results, 
so they do not require proofs or extensive explanations. 

* Indicates Datm 

• DA, DB, *DC are Y200 0-»«asitiv« Format: CYY 
Century Baa • ■ 18 

Original i KOVB 185 TO DA 

COKPUTS OB m DA - 5 
KOVB DB TO DC 

DA, DB, DC are corrected to PIC9(4) (YYYY) In the data 
division 

Final : KOVB 1985 TO DA 

COMPUTE DB ss DA - 5 
KOVB DB TO DC 

Figure 4: AutoEnhancer/2000 Correction Rules In Operation II 

Experimental Results: Our experimental results for 
identification and correction have been very favorable. 
For example, in one study, we performed identification 
and correction on a program of 300K lines of code 
(KLOC) in 1,170 compile modules (all numbers are 
approximate). We started with 90 seeds (all file record 
fields) and identified 600 date-sensitive file record fields 



* Indicates Input Seeds (I/O Variables) 

• DATE -A Y2000-sensitive Format: YY Date 

♦ TERM-B Y2D00-aensitive Format: YY Duration 

Original Code : 

MOVE 66 TO DATE -A 

IF DATE -A < 90 COMPUTE DATE -A - DATE-A + TERM-B 

DATE -A and TERM-B are corrected to PIC9M) (for YYYY} in 
the data division 

Corrected Output COBOL code in the procedure division: 
KOVB 1966 TO DATE-A 

IF DATE-A < 1990 COMPUTE DATE-A - DATE-A + TERM-B 

Figure 3: AutoEnhancer/2000 Correction Rules In Operation 1 
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and 7,000 date-sensitive working storage (internal) 
variables, all of which were confirmed manually. The 
entire process took about five hours on UNIX 
workstations, which is comparable to compile time. 

IV. The System Correction Process 

One could assume that corrected code can only access 
corrected data, and corrected data can only be accessed 
by corrected code. This situation creates the conceptual 
"Big Bang" System Correction (BBSC) process. 



Old Program 



OldData 




PC A Y20O0 Correction 



Y2000 Data Correct 




NewProgram 



NawOata 



Figure 5: Big Bang System Correction 

Big Bang correction is useful to illustrate system 
correction at a high level. However, it is not practical to 
carry out a BBSC, except for very small systems, for the 
following reasons: 

• Size and Scale, The Old Program can consist of 
tens or hundreds of millions of lines of code and 
the Old Data will be thousands of gigabytes. 
Correction, even with the fastest tools, will take 
weeks or even months. 

• Disruption. During correction, all operations, 
including code maintenance and mission critical 
applications, must be shut down. This is not 
feasible. 

• Testing and Reliability. There is no opportunity to 
perform incremental unit tests cn the corrected 
code working with corrected data, and a double set 
of hardware would be required to test the Old and 
New Systems in parallel. 

• High Risk. BBSC has no opportunity for recovery. 
The obvious alternative is to correct portions of the 

code step-by-step. The difficulty, however, is that some 
data files and databases are required by nearly all 
program subsystems. In order to test a corrected 
subsystem, you must correct all the files and databases 
thru the subsystem accesses. Then, hcv/ever, the 
uncorrected programs cannot operate. 



AutoEnhancer/2000 Correction software consists of 
two principal components which must be combined: 

• AutoEnhancer/2000 proper, for program 
correction. Program correction provides verified 
Y2000-correct code, test data points, and a 
complete attribute database for all working storage 
record field, and screen field "variables/* 

• Data Correctors of two types which convert 
between Old and New data formats: 

1. Batch Sequential Data Correctors (BSDCs) 
which are used for pipeline and one-time 
correction. BSDCs can be bi-directional; 
there can be two separate BSDCs for a single 
file. The first will correct OD to ND, and the 
other will correct ND to OD. Of course, ND 
to OD correction will be erroneous if the ND 
file contains a 21-st century date. 

2. Wrapper Data Correctors (WDCs) which are 
subroutines used for dynamic, runtime, 
access, performing data correction between 
two and four-digit representations. 

Data Correctors 

Data Correctors are programs (either BSDCs or 
WDCs) which are generated by AutoEnhancer/2000 
from format and other information in the Attribute 
Database. 

• There will be a distinct data corrector set for each 
file or file family. A file family is a collection of 
files determined by AutoEnhancer/2000 to have 
exactly the same record formats. 

• A data corrector set consists of up to two BSDCs 
(one for each direction) and a WDC. In many 
cases, depending on usage, AutoEnhancer/2000 
will not need to create all three data corrector 
programs for a given file family. 

• As each file family has its own distinct set of data 
corrector programs, it will be possible to customize 
the core correctors (generated by 
AutoEnhancer/2000) to account for factors not 
detectable by AutoEnhancer/2000. Some record 
fields may be used as both a date and a non-date, 
-.vith the interpretation determined by the value in 
another field (such a situation is called a 
discriminated union). 

Batch Sequential Data Correctors 

Figure 6 shows the operation of a BSDC program. The 
solid arrow shows the OldData to NewData correction, 
while the dashed arrow shows the reverse NewData to 



480 



OldData correction. Figure 6 shows records from a 
hypothetical database where each record contains three 
dates, each with the format CYYMMDD, where the 
century indicator base is 1800. 
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•Determined from Identification Attribute Database 
Data correction from OldData to NewData is performed in e single batch Dm cess c 

•Some data fields may be reordered {not shown) 
•Y200O Data Correction Programs are generated automatically from Attribute Database 

•Different correction programs (or different data file types 
■Correction is reversible (NewOata corrected to OldData) - Y2000 dates wii) be lost 



Figure 6: Batch Sequential Data Correction 

BSDCs are suitable for any file that is processed 
sequentially or for one-time, shared file correction, such 
as a master account file. One-time, shared file correction 
is appropriate after all programs that access the file are 
corrected. 

BSDCs are bi-directional, allowing recovery in case of 
program correction errors or any other problems in the 
system correction process. 

Figure 7 is an example of a pipeline using BSDCs. 
Programs are shown in ovals and are marked as New or 
Old. New programs have been corrected (by 
AutoEnhancer/2000) and read data in 4-digit year 
format. Old programs are still in their original form. 
Parallelograms indicate files, in either Old or New 
format. The shaded, pointed boxes indicate BSDC 
programs which read files sequentially in one format and 
rewrite them in the other format 




Tracing the operation of the Figure 7 example, which 
performs a periodic update of a sorted master file based 
upon update transactions, illustrates the utility of BSDCs 
m a data correction pipeline. Some programs have been 
corrected, and others have not. The commands to 
execute the BSDCs muse be inserted into the JCL (Job 
Control Language) program that executes this cycle 
Notice that JCL correction is part of the overall 
AutoEnhancer/2000 program correction process. 

Run-Time Wrapper Access 

BSDC cannot meet all requirements, however. The 
primary limitations are: 

• Files that are accessed concurrently by both 
corrected and uncorrected programs. 

♦ Files that are accessed randomly rather than 
sequentially. For example, if a corrected program 
accesses an uncorrected data file, the data 
correction must be performed "on-tfae-fly" rather 
than as part of a batch process. 

The solution is for AutoEnhancer/2000 to generate 
"wrapper routines" (WDCs) during program correction. 
AutoEnhancer/2000 replaces I/O operations with calls to 
the WDCs. WDCs, in tum, perform the actual I/O and 
correct dates (convert from 2-digit, possibly with a 
century indicator, to 4-digit representations) during 
reads and to convert dates back to 2-digit form during 
writes. In this way, correction is performed dynamically, 
and the files can be shared with uncorrected programs. 

Notice that WDCs are only used by corrected 
programs as AutoEnhancer/2000 changes normal 
COBOL I/O to be calls to the WDCs, and 
AutoEnhancer/2000 also generates the WDC code. 
WDCs allow corrected programs to read and write 
uncorrected data files, allowing corrected and 
uncorrected code to coexist so long as no 21-st century 
dates are used. In this way, we achieve modularity and 
incremental testability. 

After all accessing programs are corrected, wrappers 
can be removed. 

Figure 8 illustrates Old and New Program code where 
the New Program generated by AutoEnhancer/2000 
invokes the WDCs named wr-read-year and wr-write- 

POLI CY - RECORD. 



figure 7: Data Correction Pipelines 
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Old Program 



RSAD iila-a*ao INTO 


POLICY-DATS 


AT SND . . . 




NOT AT SND . 


* * 


STD-READ 




WRITS POL ICY -RECORD 


FROM POLICY- DATS 



New Program • Reads 2-digit field into 4-digit field (vice-versa on write) 



CALL IfR- READ- POL Id -RECORD - 

IP AT-BND > 0 ... 

IP AT-BND < 0 ... 
END- READ 

CALL -WR-WRITB -POLICY- RECORD* USING POLICY -DATS 



Figure 8: Run-Time Wrapper Access Code 

There are a number of different WDC strategies, of 
which this is one. In particular, when the COBOL 
program uses a database management system (DBMS) 
for I/O, rather than making direct READ and WRITE 
calls, the WDCs will replace the DBMS calls. The 
WDCs, in turn, will invoke the DBMS. 

Likewise, there are several strategies for WDC 
removal after all programs are corrected. 

1. Relink with dummy WDCs that do not perform 
any data correction. 

2. Recorrecu directing AutoEnhancer/2000 not to 
replace I/O operations. 

3. Dynamic removal In this scheme, each WDC 
contains a flag telling it whether or not to perform 
data correction. 

The first strategy (using dummy, or "pass through" 
wrappers) dynamically linked, is the approach we have 
selected. This is the least disruptive process, and there is 
a long-term advantage in having all I/O be 
"externalized" from other code (for example, graphical 
user interface replacements will be much simpler). 

Incremental Program Correction and Globs 

With BSDC and WDC it is now possible to develop a 
strategy for the System Correction Process (SCP). The 
key is to convert a ^mgle "glob" at a time. The desirable 
characteristics of a glob are: 

1. A glob includes a manageable unit of program 
code corresponding to a significant program. 

2. The glob aiso includes all data riies that are local 
tn the / ?°^ f *. A *??.!?. f?le is local if it is accessed 
exclusively by code in the glob. 

3. A glob is of a size that can be conveniendy 
corrected in one step. 

4. A million lines of code (1 MLOQ appears to be 
an appropriate size based on the need to correct 
the entire code base in a timely manner. 

5. Each glob should be closely related to previously 
corrected globs and should be selected to 
maximize the amount of corrected data. 



Figure 9 shows the first step. Glob A has been 
identified, and it consists of both program code and 
associated local data (shown as A-Data). 
AutoEnhancer/2000 corrects the code and generates both 
the WDCs (shown as W) and the BSDC 'T2000 Data 
Correction" program. W accesses all data that must be 
shared at runtime with uncorrected code. 



Old Program 




PCA Y2000 Correction 



) 




tew Program 



I/O - All other data 



I/O 



OldOata 



OD 




Y20OO Data Correction 



I/O 



1— a y/ A-Data/ 



NewData 



Figure 9: Run-Time Wrapper Access: "Correcting Glob A" 

At this point, the system is still not operational as W 
only accesses shared, random access files. Therefore, 
AutoEnhancer/2000 next corrects JCL statements that 
invoke programs within the Glob A code by inserting 
BSDC programs for pipeline correction. Figure 10 shows 
the resulting operational, partially corrected, system. 



Old Program 



OkfData 




New Program 



Pipeline 
Correctors 



Y2000 Data Correction 



I/O 



fry/ ArD&\a/ 



NewOata 



Figure 10: Run-Time Wrapper Access: "Using Pipelines" 

Next, Glob B is corrected, and AutcEnhancer/2000 
attaches the B code to its own set of WDCs. In addition, 
B-Oata includes not just the data that is local to B but 
also that which is iocai to A and B together. Figure il 
shows the resulting partially :crrected system. 
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OldProgram 




NewProgrom 



/ OD / J 

J . P / [Y2000 Data Correction! r 

Figure 11: Run-Time Wrapper Access: "Correcting Glob B" 

Glob-by-elob, the process continues until all code is 
corrected, as shown in Figures 12 and 13. At this point, 
WDCs are no longer needed, so they are removed. All 
code and data are corrected. 




Figure 12: System Migration: "Correcting Glob Z" 



Figure 13 now shows the final, fully corrected system. 
Archived data is not corrected until it is required, and, 
even then, it is only corrected into temporary read-only 
files for use by the New Program. The archive files 
themselves are not changed. 




NewProgram 



NewData 



Figure 13: System Migration - Completed 



Features and Advantages of Incremental 
Correction 



1. Testing. Each corrected glob can be tested. 21-st 
century test data can be introduced early. 

2. Production. Corrected programs and data can be 
put into production after passing initial tests and 
will be exposed to considerable real-life testing. 
Any early defects will benefit future corrections. ° 

3. Reliability and Recovery. This process allows for 

back-up of any step and recovery. 

> *— » . .. . , „ . 

Waicx iS COr; , — -~ i^.: i03L» as possioie. 

- ^..^ l*. nwwS^oUj, wuLs, can access 

archive data. 

The;, are several tasks to be performed in order to 
implement this SCP. 

1. The various forms of WDC need to be specified, 
including the mechanisms for removing wrappers. 

2. We must Specify and implement a policy for 
identifying globs and determining the order of 
correction. Factors to consider include: 

• Urgency 

• Complexity and Risk. The most complex and 
risky programs should be corrected first 

• Connectivity, Programs which are most 
tightly connected (through data files) are 
candidates for the next correction step. 

3. AutoEnhancer/2000 generates the data correction 
programs. In addition, AutoEnhancer/2000 
determines which files are appropriate for BSDCs 
and which require WDCs. 

4. Analysis of C1CS (user interface) and JCL ("Job 
Control Language") is necessary. 

Verification 

The correctness of the transformation is shown in two 
steps. 

1. Rule Correctness : The correction rules developed 
for the Correction phase are shown to be logically 
correct. That is, the set of individual rules 
transform "Old Code" (OC) into "New Code" 
(NC), and the OC and NC have exactly the same 
logic and behavior, except that the NC deals with 
4-digit years. 

2. Correct Ride Application : The Correction rules 
are actually applied by AutoEnhancer/2000 
correctly in each instance so that the underlying 
logic is preserved. 

Both Rule Correctness and Correct Rule Application 
are established using AutoEnhancer/2000's techniques 
of Logical Code Analysis employing weakest 
precondition (wp) calculations [3, 4, 5, 6, 7]. 

Verification only assures that the OC and NC have the 
same logic. Neither AutoEnhancer/2000 Correction nor 
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Verification will correct defects in the OC. Rather, 
AutoEnhancer/2000 Correction assumes that the OC is 
correct (within the limitations of its ability to represent 
dates) and extends the OC to allow use of 4-digit years. 

Testing 

It is necessary to test the integrated New Program/Data 
operation. Verification correctness assumes that all date 
sensitive variables have been correctly identified. No 
date-sensitive variables can be missed, and, conversely, 
all variables so identified must really be date-sensitive. It 
is also necessary to observe system behavior for dates 
that exceed 2000. In order to assist testing, 
AutoEnhancer/2000 generates test data specifically for 
each procedural code change made during correction. 

The objective is to generate test data that will exercise 
the code changes made during code correction. The test 
data is required both to test that the code logic has not 
changed (regression testing) and that the code logic 
operates correctly for dates that exceed Y2000 (extension 
testing). 

Test data generation is an integral part of the 
AutoEnhancer/2000 Code Correction Phase. Figure 14 
shows test data generation and the use of the test data. 

/' Test ~7 
Data/Results/ 




Figure 14: Report and Test Data Generation During Code 
Correction 



1. The Corrected Code and Correction Re port serve 
as input to the Test Data Generator . This is all 
done internally to Au:c£nhancer/2000 operation. 

2. The result is the Test Data Report , which gives 
the actual test data point values along with the 
reasoning that led to the generation of that data. 

3. The Data Formatter is a system to process the 
Test Data Report and to insert the test data points 
into valid transactions and database records. 

4. The Test Data/Results represent the output of the 
Data Formatter. 

V. Summary 

Using AutoEnhancer/2000 for identification, code 
correction, data migration, and test generation automates 



the entire Year 2000 correction process, resulting in 
greater efficiency and higher quality than any other 
alternatives. Our approach overcomes limitations of 
other tools and techniques and: 

• Addresses the entire problem 

• Minimizes risks 

• Increases quality 

We are currently applying this system for several 
clients, and we are continuously refining the process 
based on experience. 

Note : There is a U.S. patent pending on the material 
in this document. 

Acknowledgments : Ashraf Aiifi and Dominic Chan have 
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developed the draft of this paper from a mass of 
technical memos, diagrams, and notes. 
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Waiting for oi-oi-oo 



Brian Haves 



When I was a boy growing up in Tole- 
do, Ohio, my best friend was Jimmy 
Liccata, whose father owned Tony's 
Gulf Station a few blocks away. One day Jimmy 
and I were snooping in the Liccata garage, 
doubtless up to no good, and discovered a car- 
ton of blank receipt pads from the gas station — 
the kind with alternating white and yellow 
pages, and a purple sheet of carbon paper to 
slip between them. The tablets were an irre- 
sistible attraction to a couple of first graders 
just beginning their initiation into the mysteries 
of the written word. I was enchanted by the 
magic of seeing all my scribbles reproduced in 
duplicate. But what I remember most vividly 
about those long-lost gas-station forms (im- 
printed with an orange-and-blue emblem that 
has itself disappeared from the American land- 
scape) is the space for filling in the date. It read: 

" , 195 ." Seeing that inscription 

gave me my first hint of the alarming velocity of 
time. All my life it had been the 1950s, and up to 
that moment the decade had seemed absolutely 
endless. Now I realized that the Fifties would 
eventually pass away, and all that stationery 
would be made obsolete. The close of the 
decade still seemed unimaginably far off — these 
events took place in the summer of 1956 — but 
even if I could not quite see myself living in the 
new world of 196 , I knew it was coming, in- 
exorably. Perhaps I even foresaw that stationery 
imprinted " , 19 " would some- 
day expire. What a thought! A new millennium. 

The calendrical milestone that seemed so 
astronomically remote to a boy in 1956 is now 
bearing down on us at a sure and steady speed 
of 3,600 seconds per hour. We have only five 
years left before a certain Friday night brings to 
an end, all at once, a month, a year, a decade, a 
century and a millennium. On the following 
Saturday morning it is not just preprinted sta- 
tionery that will become obsolete. Among all 
the other transformations to be expected as the 
new age dawns, it seems likely that many com- 
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puter programs will begin acting a bit strangely 
that day. Here are some hypothetical examples: 

Shortly after midnight on January 1, 2000, a 
program meant to make automatic back-up 
copies of computer files starts replacing docu- 
ments dated 01-01-00 with versions from 12-31- 
99 or earlier. Similarly, a programmer's tool that 
automatically links together the latest compo- 
nents of software under development begins in- 
cluding outdated modules. 

Because many computers interpret 01-01-00 as 
the first day of 1900 rather than 2000, they also 
take it to be a Monday rather than a Saturday. As a 
result, traffic signals and school bells operate on 
their weekday schedule, and the display of ar- 
rivals and departures at the railroad station shows 
the Monday-morning commuter trains. Some- 
where in the nation a bank is robbed because a 
time lock allows a vault to open on Saturday 

At the airport, all flights are canceled. A com- 
puter in the maintenance department has 
grounded the aircraft because they are 99 years 
overdue for airframe and engine overhauls. Fur- 
thermore, some pilots appear to have been on 
duty for 875,000 hours, in violation of union and 
FAA work rules. 

At the local dairy, the oldest milk on hand is 
supposed to be shipped first, but in the early 
weeks of the new millennium milk from the 
year 00 is given precedence. Indeed, any milk 
remaining from December 1999 will not be 
scheduled for shipment until the end of 2099. 
Meanwhile at the bakery across town a comput- 
er calculates that bread dated 01-01-00 must be 
a century old, and sends it to the landfill. 

The next time you open up your computer- 
ized laboratory notebook, the software informs 
you haughtily that all entries must have mono- 
tonically increasing time stamps. Then it accuses 
you of tampering with the system clock. 

When you get your first bank statement of 
the new year, you find transactions listed in a 
curious nonchronological sequence, with all 
those from 2000 preceding those from 1999. 
Moreover, your $1,000 deposit made in late De- 
cember has earned almost 100 years of interest, 
and so you have a balance of $400,000. Don't be 
too quick to spend it, however. The next day 
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your Visa bill arrives, and you owe $136 mil- 
lion. And when the phone bill comes in, that 
Happy New Year call you placed just before 
midnight has been charged as 53 million min- 
utes. Then the library sends you a notice of 
some seriously overdue books. 

The Millennium Cruise 

Events like these are awaited with anxiety — and 
perhaps also a hint of mischievous glee, as long 
as no one gets hurt — by the small band of com- 
puter professionals who track the hazards of in- 
formation technology. The main gathering place 
for this band is the Risks Forum (1), an Internet 
mailing list and newsgroup moderated by Peter 
G. Neumann of SRI International. The foibles of 
computer clocks and calendars are a favorite top- 
ic in the forum. Most of the imaginary calamities 
mentioned above are based on speculations pub- 
lished in Risks over the past few years (2). In- 
deed, the perils of 01-01-00 have been so often 
anticipated in the forum that one contributor has 
proposed a turn-of-the-century cruise (3) for 
those who want to be out of harm's way when 
the calendar "rolls over." While the rest of us are 
stuck ashore, arguing over whether the 21st cen- 
tury begins in 2000 or 2001, the canny Risks 
readers will slip away aboard a craft with non- 
electronic controls and no computer-aided navi- 
gational equipment. 

Most of the problems cited above arise from 
representing calendar dates with just six deci- 
mal digits, in a format that allows only two dig- 
its for the year. A program that adopts this rep- 
resentation is necessarily limited to a 100-year 
span. Most such programs interpret the years 
00 through 99 as 1900 through 1999. Thus when 
the calendar rolls over from 99 to 00, the date 
does not advance into the next century but re- 
turns to 1900 again. Computers that rely on a 
calendar of this kind are destined to repeat the 
20th century over and over; they live in a cyclic 
universe, where the future wraps around to be- 
come the past again. 

The concepts of "before" and "after" are cir- 
cular in such a world. A chronological sorting of 
bank transactions or batches of milk is sure to 
yield some strange results near the turn of the 
centurv. Similarly the Office of Vital Statistics 
should not be surprised a few years from now 
to register an entire generation of newborn chil- 
dren who are older than their parents and 
grandparents. Ail these oddities are simple con- 
sequences of the arithmetic of the cyclic calen- 
dar, in which 99 + 1 = 00, but 00 < 99. 

When the arithmetic is more complex than 
numeric comparison, the exact effect of calendar 
rollover depends on the details of how the arith- 
metic is done. Consider the case of a bank calcu- 
lating interest on a sum of money deposited on 
12-20-99 and withdrawn on 01-10-00. Subtract- 
ing 12-20-99 from 01-10-00 ought to yield not 




Figure 1. The Last Judgment, as envisioned circa 1000, when the 
end of time seemed near. At 2000, apocalypse will be computer- 
ized. (From Georg Leidinger, Miniaturen der Staatsbibliotek 
Miinchen.) 

quite -100 years, or more precisely -36,503 days. 
On getting such a result, one thing a computer 
might do is — to use the technical term — barf. A 
negative interval makes no sense in this context, 
and a prudently written program might well in- 
clude an explicit check for this possibility; on 
finding a negative value, the program would 
stop and signal an error. Even without explicit 
error-checking, the negative number of days 
might bring the program to a halt; for example, 
the program might at some point attempt to take 
the logarithm of this number, which is an im- 
possible operation. Or, the unexpected negative 
value might have just the opposite effect, caus- 
ing the program not to halt but instead to enter 
an infinite loop. In all of these cases the program 
ultimately refuses to produce an answer, which 
may be the most benign failure mode available 
in the circumstances. 

There are lots of other possible outcomes. 
Because a negative period of deposit is not to 
be expected, a programmer might write the in- 
terest-calculating procedure in such a way that 
it ignores the sign of the result when subtracting 
dates. This is the kind of arithmetic assumed in 
several of the hypothetical events cited above. A 
related but subtly different approach is to do the 
arithmetic with unsigned integers, a system of 
numbers in which negative values simply do 
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not exist. In one common implementation of 
unsigned computer arithmetic, 0 - 99 is equal 
to 65,437; it your bank uses this number of 
years in the interest calculation, it had better 
leave room on your statement for a 1,650-digit 
dollar amount. 

Another possibility is that the minus sign 
would propagate all the way through the com- 
putation, so that you would be credited with, 
saV/ -$397,000 in interest. This result has a cer- 
tain logic to it, since the bank thinks you with- 
drew your money in 1900 but did not deposit it 
until 1999. Happily, interest on credit-card bal- 
ances and loans might also cross over to the oth- 
er side of the ledger, so that you would receive a 
fabulous refund. 

In still another variation, a negative number 
could turn up as the exponent in the formula 
for compound interest. In this case both your 
assets and your liabilities would dwindle away 
to trivial sums; at -6 percent per year, a $1,000 
deposit would be reduced to $2.95. Here's one 
more amusing prospect: If the bogus negative 
value creeps into the computation in two places, 
your interest could be either a debit or a credit 
depending on whether the money was on de- 
posit for an odd or an even number of days. 

And there are yet more ways for this simple- 
seeming calculation to go awn'. Much computer 
arithmetic is done with 16-bit numbers, w T hich 
can represent a total of 65,536 (i.e., 2 16 ) distinct 
values. A widely adopted convention for 16-bit 
arithmetic allows the integers from 0 through 
32,767 to represent themselves, whereas the re- 
maining values are interpreted as the negative 
integers from -32,767 through -1. The 36,503 
days between 01-10-00 and 12-20-99 exceed the 
maximum positive value in this system and 
would therefore be interpreted as a negative in- 
teger, namely -29,033. 

It would be easy to dream up still more error 
mechanisms. Indeed, it begins to appear that 
with enough ingenuity virtually any result 
could be gotten from this calculation — even the 
right result. Most programs on most computers 
will probably continue to operate normally in 
the new millennium. But there will also be a 
great blooming of bugs on that Saturday morn- 
ing five years from now. 

The Centenarian's Complaint 

There is a quick fix for some of the difficulties 
noted above. Although two decimal digits can 
represent no more than 100 years, any 100-year 
span could be chosen. For example, a program 
could be designed to interpret the years from 30 
through 99 as 1930 through 1999, yet see 00 
through 29 as 2000 through 2029. In this way the 
program might be able to survive the millennial 
crisis, or at least postpone it for a few decades. 
But the fix has a cost: The system would become 
more vulnerable to other faults. In particular, 



anyone whose birthdate is before 1930 might find 
the software distinctly unfriendly. 

No matter how the dates are shifted or re- 
arranged, a calendrical system that covers only 
a finite period is bound to bump up against a 
limit at some point. We do not even have to wait 
for a magic midnight such as 01-01-00 before 
the trouble starts. Computations done with six- 
digit dates already cause occasional bewilder- 
ment. For example, in 1992 Mary Bandar of 
Winona, Minn., was invited to join kindergarten 
classes when her name turned up among others 
identified in a database search for people born 
in "88"; at the time Bandar was 104 years old (4). 
Similarly, C. G. Blodgett's auto-insurance pre- 
mium tripled after his 101st birthday, apparent- 
ly because he was classified as a high-risk 
youthful driver (5). (There is something particu- 
larly disturbing about this story, even apart 
from the idea of insuring a one-year-old driver: 
Why did the company wait until his hundred- 
and-first birthday to raise the premium?) An- 
other Risks anecdote tells of the hospital com- 
puter that interpreted the blood count of a 
99-year-old man by standards appropriate to 
that of a newborn (6). 

There are also computer systems whose built- 
in time bombs have a fuse shorter than 100 
years. On September 19, 1989, dozens of hospi- 
tals found that computers used for bookkeep- 
ing and administration had ceased to function 
(7); it was not a coincidence that September 19, 
1989, was the 32,768th day after January 1, 1900. 
A few weeks later computers running the 
Michigan Terminal System began to fail (8); the 
date was November 16, 1989, which was 32,767 
days after March 1, 1900. The satellites of the 
Global Positioning System keep track of the 
date by counting the weeks since January 6, 
1980. The count is maintained as a 10-bit value, 
and thus it has a maximum range of 1,024 
weeks. It follows that on December 21, 1999, the 
counter will roll over, and GPS receivers will 
think it is 1980 all over again (9). And the grand 
prize for planned obsolescence goes to a per- 
sonal computer sold in the mid-1980s by AT&T 
(10): It had a clock that ran out of ticks at the 
end of 1990. 

Even systems that will outlast the 1900s will 
not get very far into the new millennium. The 
clock runs out on the Unix operating system in 
2038, on the Macintosh in 2040 and on MS-DOS in 
2048. Many other computer systems span the 
interval from 1901 through 2099; the likely rea- 
son for choosing these particular boundary 
dates is that they simplify leap-year calculations 
(2000 is a normal leap year, but 1900 and 2100 
are not). 

The Dusty Deck 
Abbreviated date formats were adopted for rea- 
sons that doubtless seemed compelling at the 
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time. Why waste storage on digits that are al- 
ways 1 and 9? Likewise, why force people to 
type four digits when the first two are always 
the same? Furthermore, some of the tools that 
programmers rely on encourage or even enforce 
a limited temporal horizon. The COBOL pro- 
gramming language, used for many business 
and financial applications, defines a year as a 
two-character data type. Ada, the language 
mandated for most Department of Defense soft- 
ware, is one of the 1901-to-2099 systems. Every- 
one knew, when these decisions were made, that 
time would undo them, but the day of reckon- 
ing was remote. To the programmer cobbling to- 
gether a bank accounting system in 1962 it 
would have seemed comically pretentious to 
imagine that the program might still be in use in 
2000. Given the brevity of the human life span, 
and the rapid pace of technological evolution, 
building a machine with a design life of 100 
years should not earn you criticism for short- 
sightedness. 

Yet here comes 01-01-00. Risks Forum read- 
ers know how the day will go. The first trouble 
reports will come from New Zealand, which Pe- 
ter Neumann calls the "king's taster" for com- 
puter clock problems. Then the wave of failures 
will wash over Asia, Africa and Europe; those of 
us in the Americas will see it coming hours in 
advance, and yet we will probably be unable to 
do much of anything to stop it. 

As computer bugs go, the problems connect- 
ed with truncated and cyclic dates are not very 
subtle or obscure, and many of them can doubt- 
less be fixed by simple changes. Just leaving 
room for four-digit years should hold us for an- 
other eight millennia. The challenge of averting 
computer catastrophe on 01-01-00 is not in the 
bugs themselves; the challenge is the "dusty- 
deck problem." The term comes from the era of 
punched cards — and so does some of the soft- 
ware still running today. That accounting sys- 
tem written in 1962 may still be at the heart of a 
bank's daily operations, though by now it is en- 
crusted with thick layers of additions and patch- 
es, and no one has a clear idea of how it actually 
works. "Legacy systems," they call such soft- 
ware. Altering a legacy system in an area as fun- 
damental as the format of dates is rather like 
changing a tire without stopping the car. It's a 
delicate operation, and now is not too soon to 
get started. 

The prevalence of calendar-related malfunc- 
tions among the reports appearing in the Risks 
Forum suggests just how tricky it is to get date 
computations right. I can offer further evidence. 
In the first draft of this column 1 was off by 10 in 
my calculation of the number of days between 
12-20-99 and 01-10-00. David Schoonmaker, the 
managing editor of American Scientist, caught 
the error and showed me, with arithmetic of 
convincing simplicity, how to derive the correct 



answer. I had done the original calculation with 
a spreadsheet program, which I considered 
more trustworthy than my own arithmetical 
skills. Part of the error turned out to be the result 
of a careless typing mistake, but after correcting 
that slip, a one-day discrepancy remained. The 
puzzle was solved when I discovered that the 
spreadsheet program treats 1900 as a leap year. 

The last time the calendrical odometer turned 
over a row of three zeroes, it was a turbulent 
moment in social history, with much of Chris- 
tendom nervously awaiting the end of the 
world (11). The millennium was thought to be 
the time of apocalypse, the appointed Day of 
Judgment. I cannot suppress the idea that many 
were perplexed, perhaps even disappointed, 
when 1000 came and went, and the sun contin- 
ued to rise and set so reliably. But there were no 
computers then. 

Notes 

1. The Risks Forum is distributed through the Usenet 
newsgroup comp.risks and is also available by elec- 
tronic mail, either through the bitnet listsekv mecha- 
nism (send the message subscribe risks) or by request- 
ing a subscription from risks-request@csl.sri.com. An 
archive of the forum is available through the anony- 
mous ftp protocol from crvax.sri.com. The archive can 
be searched by means of the wais protocol, using the 
risks-digest.src database on the wais server cmns- 
moon.think.com. Excerpts from the forum appear in 
Software Engineering Notes, the quarterly journal of the 
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Dates, Functions, and Macros 



This chapter brings together three subjects that do not fit easily into any other 
category: using dates and times, functions, and macros. All three subjects need 
a forum of their own, and they are the finishing touch— the "icing on tjie cake" 
that makes a good worksheet a great worksheet- 



Using Dates and Times 



From schedules to dates on reports and time-related financial calcula- 
tions, dates and times are important aspects of the problems Excel addresses. 
The sections that follow discuss how Excel handles dates and times internally, 
various ways Excel formats dates and times, and the date and time functions 
and arithmetic. 
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Dates and Excel 

Dates do not form a nice, neat, linear progression. You cannot add 12 
days to April 28th and get May 10th without knowing how many days there 
are in April. Microsoft has solved this problem by establishing a date serial 
number scheme. This scheme allocates one number for every day from 
January 1, 1900 (date serial number 1) to December 31, 2078 (date serial 
number 65380). Microsoft also provides formatting and formulas to convert 
the date serial number to a specific calendar date. Internally Excel uses the 
unformatted date serial number. You can format the date serial number in 
several ways and get a normal-looking calendar date from a serial number. 
For example, when formatted with the first Excel date format, the serial 
number 33343 becomes 4/15/91, as shown here: 



file Edit Formula Format 0 





| 4/15/91} ' 



In other words, simply typing 33343, pressing (€NTER ) , and formatting the 
number with Format Number m/d/yy produces the date 4/15/91. The 
following instructions demonstrate several other dates. Your computer 
should be on, Excel should be loaded, and you should have a blank worksheet 
on your screen. 

1 . Select B2:F2, choose Number from the Format menu, select the Date 
category, the m/d/yy format, and click on OK. The range B2:F2 is 
formatted as m/ d/yy dates. 

2. Type 33343 and press (right arrow) . The date 4/15/91 appears in 
B2. 

3. Type 30638 and press (right arrow) . The date 1 1/18/83 appears in 
C2, as shown in the following illustration: 
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4. Type 1, press (right arrow) , type 65380, and press (ENTER ) . The date 
1/1/00 appears in D2, and E2 contains 12/31/78. 

Note that when you are working in the next century, the two-digit year 
format can be confusing. Change the format next. E2 should still be the active 
cell. 

5. Choose Number from the Format menu, click after the last "y" in 
the Code text box, type yy, and click on OK. E2 fills with #s because 
the date is now too big for the cell. 

6. Drag on the intersection of columns E and F in the heading for about 
one tenth of an inch to widen the column. The date 12/31/2078 
appears in E2, as shown here: 
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There is one abnormality in Microsoft's date scheme. The year 1900 was 
not a leap year, even though the year was evenly divisible by four. Therefore, 
Excel assigns a date serial number to February 29, 1900, which didn't exist. 
The only impact of this is that date arithmetic spanning February 28, 1900 
through March 1,. 1900 is off by one day. All date serial numbers and 
calculated dates from March 1, 1900 onward are correct. 



Times and Excel 

Microsoft has also developed a scheme for calculating time: the time is 
added to the date serial number as a decimal fraction of a 24-hour day. 
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Therefore, midnight is 0.000000, noon is 0.500000, and 11:59:59 PM is 
0.999988. When the decimal fractions are formatted with Excel as times, they 
produce normal-looking time numbers on either a 12- or 24-hour basis. The 
following steps show how several times are entered. 

1. Select B2:E2, press (del) , click on All, and click on OK to erase both 
the contents and formats of B2:E2. 

2. Choose Number from the Format menu, select the first time format, 
h:mm AM/PM, and click on OK. The range B2:E2 is formatted with 
the first time format. 

3. Type ,65 and press (RIGHT ARROW) . Cell B2 contains 3:36 PM, as shown 
here: 




4. Type .45 and press (right arrow) . Cell C2 contains 10:48 AM, as 
shown here: 




5. Type 0, press (right arrow) , type .9999, and press (enter) . Cells D2 
and E2 contain 12:00 AM and 11:59 PM, as shown here: 
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Dates and times are stored in one number. For example, 3:36 PM April 
15, 1991, is stored as 33343.65. In a single cell you can display this as a date, 
as a time, or both, depending on the formatting. 



Formatting Dates and Times 

There are four date formats, four time formats, and one combined date 
and time format built into Excel. The date formats use the integer part of a 
date serial number, and the time formats use the decimal part. The decimal 
part of a number is ignored by a date format, and the integer part of a number 
is ignored by a time format. If a date format encounters a number that is 
negative or greater than 65380, the cell fills with #s. If a time format 
encounters a negative number, the cell fills with #s. 

The nine built-in date and time formats are shown in Figure 10-1. You 
can, of course, make your own. The components needed to construct your 
own formats are shown in Chapter 6. Some examples of custom date and time 
formats are shown in Figure 10-2. 



Figure 10-1. Built-in date and time formats 
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Figure 10-2. Examples of custom date and time formats 
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The choice of which format to use is one of personal taste. Some formats 
require wider columns than others, which may have some bearing on your 
decision. Also, there is no reason you cannot mix formats in a worksheet 



Date and Time Functions 

Date and time functions use the date serial number to calculate various 
date- and time-related numbers. There are seven date and five time functions 
that are used in date and time arithmetic. In addition there are two functions 
that produce the current date and/or time. Of the fourteen functions, five 
produce a date or time serial number that must be formatted in order to be 
displayed properly. Any of the formats may be used with the functions. 

Date Functions 

The seven date functions are shown in Figure 10-3. The first two produce 
date serial numbers, shown in the middle column of Figure 10-3, that can be 
formatted as dates, shown in the third column. The next four functions 
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Figure 10-3. Date functions 
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transform a date serial number into part of a date. The last function calculates 
the number of days between two dates using a 360-day year. 

The DATE function takes three integers— one for the year, one for the 
month, and one for the day— and computes the date serial number. As with 
all functions, the three arguments (year, month, and day) can be integers that 
are entered directly into the function, or they can be addresses or range names 
that refer to cells containing or computing integers suitable for the function. 
DATE is used when you break out a date to sort or to use as a database 
criterion and you want to display the date that results from the combined 
pieces. 

DATEVALUE converts a date in text form to a date serial number. 
DATEVALUE looks for text as an argument. Therefore, a date that is directly 
entered into the function must be enclosed in quotation marks, as shown in 
Figure 10-3. 

The next four date functions, DAY, MONTH, WEEKDAY, and YEAR, 
perform the opposite function of DATE: they split out the day, month, 
weekday, or year from the date serial number. WEEKDAY returns an integer 
from 1 for Sunday to 7 for Saturday. 
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Time Functions 

The five time functions are shown in Figure 10-4. The first two produce 
the date serial numbers shown in the middle column of Figure 10-4, which 
can be formatted as the times shown in the third column. The last three 
functions transform a time serial number into the components of time. 

The TIME function uses three integers— one for hours, one for minutes, 
and one for seconds— tp compute the time serial number. TIME is used when 
you break out a time for sorting or for use as a database criterion and you 
want to display the time that results from the combined pieces. 

You use TIMEVALUE to convert a time that is entered as a label to a date 
serial number. TIMEVALUE looks for a label as an argument. Therefore, a 
time that is directly entered into the function must be enclosed in quotation 
marks, as shown in Figure 10-4. 

The next three date functions, HOUR, MINUTE, and SECOND, perform 
the opposite function of TIME: they split out the hour, minute, or second 
from the time serial number. 

Current Date and Time Functions 

The functions used to produce the current date and/or time are NOW 
and TODAY. Examples of their use are shown in Figure 10-5. These functions 
use the internal clock-calendar in your computer to determine the current 
date and time. NOW produces both the integer and decimal components 
needed for both date and time display. If you are using the current date in a 
formula or with another function, use TODAY to obtain the integer part of 
the current date. The decimal (time) part of NOW can cause inaccuracies in 
date calculations. If you simply are displaying the date, NOW by itself works. 
Date formats ignore the decimal part of the number. 

Entering and Generating Dates and Times 

You have just seen how you can enter dates and times either by entering 
the date serial number (which is not very practical because you don't know 
what it is in most instances) or by using one of the functions that convert a 
date or time to the date serial number. Also, you have seen how to generate 
the current date and/or time. You have two other ways to get dates and times 
into Excel. First Just typing a date or time on the worksheet in an Excel format 
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Figure 10-4. Time functions 
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Figure 10-5* Current date and time functions 
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produces a date or time serial number. Second, the Data Series option 
generates a sequence of dates or times. 

Direct Entry of Dates and Times 

You can enter a date or time directly into Excel in any recognized format 
and get a date or time serial number. It does not have to be one of the built-in 
formats. When you enter a date or time, it is automatically formatted as the 
first date or first time format, respectively. The following instructions provide 
some examples of direct entry of dates and times: 

1. Choose New from the File menu, and click on OK for a new 
worksheet. 

2. Move the active cell to B3. 

3. Type 4/15/91, and it goes in the edit area, as shown here: 



file £dtt Formula Forma] 





4. Press (enter) . The date, 4/15/91, is converted to 33343, and the cell 
is automatically formatted as m/d/yy, as shown here: 
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If you would like to see that 4/15/91 is in fact the date serial number 
33343, reformat B3 with the General format. You might also want to do this 
when you get to time values. 

5. Click on D3, type 4-15-91, and press (ENTER) . The date is converted 
to 33343 and automatically formatted as 4/15/91 even though 
4-15-91 is not a built-in format. 

If you want to enter a formula that looks like a date, you must put an 
equal sign in front of it. 

6. Click on B5, type 3:45 pm, and press (ENTER) . The time, 3:45 PM, is 
converted to .65625, and the cell is automatically formatted with 
h:mm AM/PM. 

7. Click on D5, type 3:45 p, and press (ENTER) . The time, 3:45 p, is 
converted to .65625, and the cell is automatically formatted as 3:45 
PM even though 3:45 p is not a built-in format, as shown here: 




Generating a Series of Dates 

In Chapter 8, you saw how you can generate dates with the Data Series 
option, which is a very capable and flexible tool. From any starting date to 
any ending date within the 178-year range of Excel's date scheme, you can 
generate as many dates as you can hold in the memory of your computer. If 
you are generating dates, you can increment them by a number of days, 
weekdays, months, years, or fractions thereof. 

The following steps give several examples of generating dates and times 
with the Data Series option: 
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1. Choose New from the File menu and click on OK to create a new 
worksheet. 

2. Select B2:F13, choose Number from the Format menu, select Date, 
the m/d/yy format, and click on OK to format the selected area. 

3. Click on B2, type 1/31/92, press (enter), select B2:B13, and choose 
Series from the Data menu. In the Series in and Type fields, Columns 
and Date should already be selected. Select Month for the unit and 
type 12/31/92 as the Stop value. One month is the default Step 
value, as shown here: 




4. Press (enter) . B2:B13 fills with a series of dates that are one month 
apart, from 1/31/92 through 12/31/92. 

This series provides the actual month end, 1/31, 2/29, 3/31, 4/30, and 
so on, not just 30- or 31-day intervals. It can be a very useful capability. 

5. Click on D2, type 1/31/92, press (ENTER), select D2:D13, choose 
Series from the Data menu, and type 7 for the Step value. Seven days 
or one week is the intended step value, as shown here: 
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6. Press (enter) . D2:D13 fills with a series of dates that are one week 
apart, from 1/31/92 through 4/17/92. 

7. Click on F2 and do a third data series, using years as the increment 
from 1/31/92 to 1/31/2003. You also must reformat the column 
to display the dates in the next century. 

When you are done, your screen should look like Figure 10-6. Column B 
shows a progression by month, column D shows a progression by week, and 
column F shows a progression by year. 

Generating a Series of Times 

Generating times with Excel is not much different from generating dates. 
While there are no ready-made increments like hours, minutes, and seconds, 
you can use the standard time notation of hh:mm:ss to indicate a step value. 



Figure 10-6. Date series by month, week, and year 
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For example, a step value of one second would be 00:00:01, one minute would 
be 00:01:00, and one hour would be 01:00:00. 

The next set of steps demonstrates several data series that produce times: 

1. Choose New from the File menu, and click on OK to create a new 
worksheet. 

2. Select B3:F15, choose Number from the Format menu, select Time, 
h:mm:ss AM/PM, and click on OK. The selected range is formatted 
with the second time format. 

3. Choose Column Width from the Format menu, type 12 for the new 
width, and click on OK. Columns B through F widen to 12 to handle 
the full time format, 

4. Click on B3, type 11:00:00, press (enter) , select B3:B15, choose 
Series from the Data menu, type 00:00:01 as the step value, and press 
(ENTER) . B3:B15 fills with a series of times that are one second apart, 
from 11:00:00 through 11:00:12. 

5. Click on D3, type 1 1:00:00, press enter, select D3:D15, choose Series 
from the Data menu, type 00:01:00 as the step value, and press 
(enter) . D3:D15 fills with a series of times that are one minute apart, 
from 11:00:00 through 11:12:00. 

6. Click on F3, type 1 1:00:00, press (enter) , select F3:F15, choose Series 
from the Data menu, type 01:00:00 as the step value, and press 
(ENTER) . F3:F15 fills with a series of times that are one hour apart, 
from 1 1 :00:00 AM through 1 1 :00:00 PM. 

When you are done, your screen should look like Figure 10-7. Column B 
shows a progression by second, column D shows a progression by minute, 
and column F shows a progression by hour, all formatted for a 12-hour clock. 

Date and Time Arithmetic 

One of the primary reasons Microsoft developed the date serial number 
was to allow easy date and time arithmetic. For example, you can add 1 to a 
date and get the day following, as shown in the next illustration: 
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j> 4/3 0/92J 5/1/92)' 



You can add 30 days and get the appropriate day in the next month: 



Microsoft Excel 



lc £drt Formula Formal P_aU Options Mac 



D2 



\ j -B2+30 



Sheets 



4/3Q/92 T ~ "5/1/92 



You can 



also subtract two dates and get the number of days between them. 



Figure 10-7. Time series by second, minute, and hour 
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The date functions are useful in date arithmetic. For example, you can 
use YEAR to determine the number of years between two dates, as shown 
here: 
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Time arithmetic is a little more complex in that you must add fractions. 
For example, to add one hour, you must add l/24th, as shown here: 




Adding ten minutes requires the fraction 10/(24*60): 
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Time functions are useful in time arithmetic. For example, you can 
determine the number of hours between two times with two HOUR functions, 
as shown here: 
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Functions 



In earlier chapters you gained some familiarity with statistical functions, 
database statistical functions, and lookup functions, and you just learned 
about date and time functions in this chapter. Excel has five other types of 
functions: financial, informational, logical, mathematical (including matrix 
and trigonometric), and text. These are discussed here, but first let's look at 
how functions are used and created. 



Using Functions 

Functions are ready-made formulas. They perform a previously assigned 
task that usually involves a calculation but may also include a nonarithmetic 
operation. Functions always produce a result in the cell in which they are 
entered. For example, SUM produces a value that is the arithmetic addition 
of a set of numbers, and UPPER produces a text string that is all uppercase. 
Functions provide a faster way to accomplish many tasks. For example, using 
SUM(range) is quicker than adding each individual cell in the range if the 
range contains three or more cells. Functions are the only way some tasks can 
be accomplished. For example, using NOW or TODAY are the only ways you 
can read your computer's clock-calendar with Excel. 
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Specifying Arguments 

Many functions require pieces of information to perform their task, for 
example, the range in the SUM(range) function. These pieces of information 
are called arguments. The number of arguments in a function varies between 
0 and 14, and the length of arguments in a function is limited to 255 
characters, including any quotation marks. 

Arguments can be numbers, text, arrays, references, and logical or error 
values, as outlined here: 

• Numbers used as arguments in a function can be numerals, numeric 
formulas, or addresses or range names for cells that contain num- 
bers or numeric formulas. 

• Text is any sequence of letters, numbers, spaces, or symbols. Text 
in a function can be literal text enclosed in quotation marks, a text 
formula, or an address or range name for a cell that contains literal 
text or a text formula. 

• An array is a rectangular set of values (a range) that is treated in a 
special way. An array is enclosed in braces ({ }) and has a semicolon 
between rows. For example, the array {5,6,7;3,4,5;1,2,3> is a 3-by-3 
array, with three rows that each contain three columns • Arrays used 
as arguments in a function can be entered direcdy, result from a 
formula that evaluates to an array, or be a set of addresses or range 
name for a range that contains an array or a formula that evaluates 
to an array. 

• References can be addresses, range names, or any formula that 
evaluates to an address or range name. 

• A logical value is either True or False. You can enter True and False 
in either upper- or lowercase letters, but Excel converts them to 
uppercase. In a function, logical values may be entered directly, 
result from a logical formula that evaluates to either True or False, 
or be in a cell referenced by an address or range name. A logical 
formula is one that contains one of these logical operators: 

= Equal to 

> Greater than 

< Less than 
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>= 



Greater than or equal to 
<= Less than or equal to 
<> Not equal to 

• Error values include #DIV/0!, #N/A, #NAME?, #NULL!, #NUM! 
#REF!, and #VALUE!. In a function, error values may be entered 
directly, result from a formula, or be contained in a cell referenced 
by an address or range name. A brief meaning of each of the error 
values is given here: 

#DIV/0! You tried to divide by zero 

#N/A Not available 

#NAME? Excel does not recognize a name 

#NULL! Two ranges you expected to intersect do not 

#NUM! Excel has a problem with a number 

#REF! Excel cannot find a cell or range reference 

#VALUE! You used the wrong type of operand or argument 

Entering Functions 

There are many different functions, but they all have the same structure, 
or syntax. A syntax is a set of rules for consistently doing something in an 
orderly manner-in this case, entering functions. The syntax for entering 
functions is as follows: 

• Every function begins with the = symbol, unless it is inside a formula 
(that is, not the first element of the formula) or another function. 

• Functions can be entered in either upper- or lowercase letters. They 
are displayed in uppercase by Excel. If you type a function in 
lowercase letters and Excel does not change it to uppercase, you 
know that you misspelled the function name or made some other 
mistake. 

• Spaces cannot occur anywhere in a function, except within a literal 
string enclosed in quotation marks or immediately after a comma 
between arguments. 

• The arguments of a function must be enclosed in parentheses. If 
one or more functions are used as arguments for other functions, 
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the parentheses must be nested, with complete left and right sets of 
parentheses for each function. Even functions that do not have 
arguments must have a set of parentheses. For example, NOW( ). 

• Two or more arguments within a function are separated by commas. 
You should not have more commas than there are arguments or two 
arguments without a comma between them. 

• Blank cells referenced in a function are assigned the value 0. 

• Functions can be used by themselves as a formula or as a part of 
another formula, function, or macro function. 

Functions may be direcdy entered by typing them in a cell, following the 
syntax just described, or you can have Excel build the formula using the Paste 
Function option on the Formula menu. To do the latter, make the cell in 
which you want the function the active cell, and then choose Paste Function 
from the Formula menu. The Paste Function dialog box opens, as shown here: 




In the Paste Function dialog box, functions are listed alphabetically, 
within 12 categories including All. You can use the scroll bar to select a 
function, or you can type the first letter of a function to quickly jump closer 
to it. Click on the Paste Arguments option box, and Excel provides 
placeholders for the arguments to remind you what they are. If you choose 
to paste arguments, you must replace the placeholders with actual arguments. 
An example of the DDB (double declining balance) function with pasted 
arguments is shown here: 
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Additional Functions 

The next several sections of this chapter discuss some of the functions 
that have not been discussed elsewhere. They fall into five groups: financial, 
informational, logical, mathematical, and text functions. Due to their num- 
ber, not all of the individual functions are covered here. The following 
sections contain tips and suggestions for each of the five groups, along with 
one or two examples of functions within each group. 

Financial Functions 

Financial functions such as the following calculate amounts used in 
financing, budgeting, and depreciation. Optional arguments to the functions 
are in square brackets. 



FV( interest, term, 
payments[>pv, type] ) 



IRR(range[>guess] ) 



NPV( interest, range) 



Returns the future value, given a series of 
equal payments, the interest rate, and the 
term. Optionally you can enter the present 
value and/or whether the payment is made 
at the end of the period (the default, type 
= 0) or at the beginning of the period (type 

= i). 

Returns the internal rate of return for a 
series of cash flows contained in the range. 
A guess may speed up the calculation. If 
you don't enter a guess, Excel uses 10%. 

Returns the net present value of a series of 
cash flows contained in the range at a 
given interest rate. 
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PMT( interest, term, 
principalis fetyp 6 ]) 



P V( interest, term, 
payment^ Jv,type]) 



SLN(cost, salvage, life) 



Returns the payment required for a loan 
amount (principal) given the interest rate 
and loan term. Optionally you can enter 
the future value and/or whether the 
payment is made at the end of the period 
(the default, type = 0) or at the beginning 
of the period (type =1). 

Returns the present value, given a series of 
equal payments, the term, and the interest 
rate. Optionally you can enter the future 
value and/or whether the payment is 
made at the end of the period (the default, 
type = 0) or at the beginning of the period 
(type = I). 

Calculates depreciation expense for an 
asset using the straight-line depreciation 
method. 



When you use financial functions, the term and interest rate must be in 
the same time units. For example, if you want a result in months, the term 
must be in months and the interest rate must be in months. (See the first 
example in the "Examples" section that follows.) 

The interest rate can be entered in a financial function as either a decimal 
(.108) or a percent (10.8%). Also, in many financial functions you must 
distinguish between cash outflow, which should be a negative number, and 
cash inflow, which should be a positive number. (See the examples that 
follow.) 

Where a series of payments is used in a function, the payments are 
assumed to be equal, at regular intervals, and at the end of each period. This 
is known as an ordinary annuity. If you want to change the payment to the 
beginning of the period, use the optional type argument with a value of 1. 

Examples To calculate the prospective monthly mortgage payment on a 
$140,000 30-year loan at 10.8% interest, use the following function: 

=PMT( .108/12, 30*12, 140000) =-$1,312 .14/month 
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To calculate the annual rate of interest necessary for a $10,000 investment to 
grow to $24,000 over 10 years with monthly compounding, use the following 
function: 

= RATE (10*12,0, -10000,24000) *12=8 .79%/year 

Informational Functions 

Informational functions such as the following provide information about 
cells and areas of the worksheet, including the number of rows or columns 
in a range, the formatting of a cell, and whether a cell is blank, contains text, 
or is a logical value. 



COLUMNS(range) 
ISBLANK(t*z/u*) 

ISTEXT(vaM 

ROW '(reference) 



Returns the number of columns in a range 
Returns the logical value True if the value or 
cell is blank 

Returns the logical value True if the value or 
cell is text 

Returns the row number (not the number of 
rows) of the first row in the reference or an 
array of row numbers for all of the rows in the 
reference 

Example Often it is helpful to know the column width of a cell. You can 
choose Column Width from the Format menu, or you can use the function 
CELLfwidth"). CELLCwidth") returns a value that is rounded to the nearest 
whole number. For example, =CELL("width") returns 8 for the standard cell 
width of 8.43. 

Logical Functions 

Logical functions such as the following perform tests to determine if a 

condition is true. 



AND(condition J, 

condition 2,...) 
lF(condition,true-result, 

false-result) 
TRUE 



Returns True if all conditions or logical 
statements are true 

Evaluates an equation or condition for true 
or false and takes one action for a true result 
and another action for a false result 
Returns a logical True 
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Example When you calculate percentages, there are situations that result 
in dividing by 0 and produce a #DIV/0! error. To replace a possible error 
value with 0 in the formula =E15/C15, use the following formula in its place: 

=IF(ISERR(E15/C15) ,0,E15/C15) 

Mathematical Functions 

Mathematical functions such as the following calculate general, matrix, 
and trigonometric values. 

ABS(x) Returns the absolute value of a number 

ATAN(x) Returns the arctangent of a number 

MINVERSE(array) Returns the inverse of a matrix or array 

RAND( ) Returns a random number between 0 and 1 

ROUNDS n) Rounds a number off to a specific number of 

decimal places 

SIN(x) Returns the sine of an angle 

SQRT(x) Calculates the square root of a number 

Angles used as arguments for COS, SIN, and TAN must be expressed in 
radians. To convert degrees to radians, multiply the degrees by PI/180. The 
angle that results from ACOS, ASIN, ATAN, and ATAN2 is in radians. To 
convert radians to degrees, multiply the radians by 180/PI. 

Example To calculate the length of a guy wire that is supporting a 1 50-foot- 
high antenna when the guy wire, attached to the top, makes a 55-degree angle 
with the ground, use the following function: 

=150/SIN(55*PI/I80)equalsl83 .12feet 

This function returns an answer of 183.12 feet. 
Text Functions 

Text functions convert, parse, and manipulate text strings. Some text 
functions are as follows: 



CHAR(x) 



Returns the ASCII character corresponding to the 
number x 



Chapter 10: Dates, Functions, and Macros 



367 



EXACI(stringl, 

string2) 

LES(string) 

MlD(string 
start-number^) 

PROPER(rtrmg) 



TEXT(xJormat) 



Compares two text strings and returns True if the 
two strings are the same and False if they differ 
Returns the number of characters in a text string 
Returns the specified number of characters from 
within a text string beginning at a specified position 
Converts the first character in each word of a text 
string to uppercase and the rest of the characters 
to lowercase, as in a proper name 
Converts a number to text with a given numeric 
format 



The offset number used in string functions always begins at 1. The first 
character in a string is 1, and the last character is the length of the string. 
Blank cells in a string function are still considered text, have a length of 0, 
and do not return an error code. 

Example To convert the date 4/15/92 in Al to a text string that can be 
used in a title, use the following function: 

=TEXT (Al , "mmnun d, yyyy " ) 



This function returns April 15, 1992, which is text, not a value. 



Macros 

A macro is a shortcut. It is a way of accomplishing a set of Excel commands 
with fewer steps and a way to automate or speed up repetitive procedures. A 
macro is also a way to guide a less knowledgeable user through a complicated 
worksheet. 

There are two kinds of macros in Excel. A command macro is a series of 
Excel commands, and a function macro is a custom function that returns a 
result. An example of a command macro is one that saves your worksheet, 
while a function macro example is one that calculates your local sales tax. You 
can have Excel execute a command macro by pressing two keys. A function 
macro is executed by putting it in a worksheet cell and recalculating the 
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worksheet. Almost all commands that you can perform from the keyboard, 
the mouse, or a menu can be stored in a macro and can be activated as you 
choose. In addition to keyboard and menu commands, a set of macro functions 
lets you perform built-in programming functions, such as repeating a se- 
quence or accepting input from the keyboard. With macro functions you can 
build custom menus and automate a worksheet. You can see that function 
macros, which are custom functions that return a result, and macro functions, 
which supply programming commands to Excel, are quite different. 

Anything that you do on a repetitive basis is a candidate for a macro. 
Macros are stored on a separate sheet called a macro sheet. You can create a 
library of macros that you can use with many worksheets, which makes macros 
you create even more useful. 

Macro Basics 

Few Excel tasks are more repetitive than saving a file. If you take normal 
precautions, you save your current worksheet several times each hour. To 
save an existing file, you either choose Save from the File menu, click on the 
Save tool from the Standard toolbar, or press (SHiFfKFiT) or ( ALT K shift X FI). 
Depending on whether you are using a mouse or the keyboard, this takes a 
varying number of keystrokes or mouse moves— not many, and ones with 
which you are probably familiar. When you repeat these actions 20 times a 
day, however, they begin to add up. If you could replace the actions with two 
keystrokes familiar to you, say (CTittTH s), it might encourage you to save your 
files more often. Saving an existing file, then, is a good candidate for a macro. 

Recording a Macro 

Built into Excel is the capability to record whatever you are doing on an 
Excel worksheet and storing those steps on a macro sheet. Once stored, you 
can a play back" the steps and repeat what you were doing. The steps that are 
stored on the macro sheet comprise the macro, and playing them back is 
called running the macro. You turn on the Excel macro recorder by choosing 
Record from the Macro menu. Do that now and record a Save macro with 
these instructions: 

1. Choose New from the File menu and click on OK to open a new 
worksheet. 
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2. Choos e Save from the File menu, type c:\sheetVnacro, and press 
(enter) . Since you want to build a macro to save a worksheet that has 
already been saved, you must start with a worksheet that has been 
saved. 

3. From the Macro menu choose Record. The Record Macro dialog 
box opens, as shown here: 




There are two ways you can store macros: on a global macro sheet, or on 
a macro sheet you create. The global macro sheet is automatically opened 
each time you start Excel. This is generally the macro sheet to use for simple, 
frequently used utility macros because Excel will save, name, and open the 
sheet for you. If you create a new macro sheet, you will have to manually open 
the sheet both to record to it and to run the macros once they are recorded. 
You can record a macro by selecting the Macro menu and choosing Record, 
or by displaying the Macro toolbar and clicking on the Record Macro tool! 
You will create and record a macro using the global macro sheet in this 
section. 

4. Type Save/Worksheet as the macro name, press (Tab) to move to the 
Key field, and type s. 

5. Click on Global Macro Sheet in the Store Macro In list box and click 
on OK. The dialog box closes, and the Recording status message 
comes on in the Status bar. 

The name of a macro can be any legitimate Excel name. It must start with 
a letter, can be up to 255 characters long, and can contain any combination 
of letters, numbers, periods, and underlines. It should not look like a 
reference (either D3 or R3C4) and cannot contain spaces. Since you cannot 
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use spaces, periods or underlines are used as word separators. Periods are 
used in this book. An Excel name can be entered in either upper- or lowercase 
letters— Excel does not distinguish between the two. 

The shortcut key can be any single upper- or lowercase letter. Upper- and 
lowercase letters are considered two different characters and will not conflict 
with one another. You cannot use numbers as shortcut characters. 

6. Choose Save from the File menu. This is the step you want to record. 

7. Choose Stop Recorder from the Macro menu. The Recording 
message disappears. 

8. From the Window menu, choose Unhide. The Unhide dialog box 
opens as shown here: 




9. Double-click on GLOBAL.XLM. The global macro sheet that was 
automatically created in the previous steps becomes the active sheet, 
as shown here: 



API 


■■ ■ . 


" : GLOB 








lii 


Seve.Worksheet (s) 


i 


m 


=SAVE() i 
-RETURNQ ! 







The global macro sheet looks just like a normal worksheet except that the 
columns look a little wider. The macro itself is in the upper-left corner, in 
cells A1:A3. Al contains the name and shortcut key you gave the macro. A2 
and A3 are the macro functions that save the current worksheet and return 
control to you. Macro functions are formulas— they always begin with an equal 
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sign (=). A macro sheet always displays formulas, not the results they produce. 
Displaying formulas is an option on a normal worksheet, but normally a 
worksheet displays the results a formula produces. You can use the Options 
Display option to turn off the formulas display on a macro sheet, but the 
resulting values are generally not informative. Here is what your global macro 
sheet looks like with formulas turned off: 




When you are displaying formulas instead of their results, everything on 
the worksheet is left aligned and you cannot change it with the Format 
alignment option. Otherwise, all formatting works on a macro sheet as it does 
on a worksheet. 

Documenting a Macro 

As you create macros, you may find that after a while you forget what they 
do. Also, you may want to give one or more macros to someone else to use, 
and they must know what the macros do. For this reason you must document 
your macros when you create them. 

You can document a macro in several ways. You have used two forms of 
documentation already— giving the macro a descriptive name and using an 
obvious shortcut key. Other ways include formatting the macro name on the 
global macro sheet so it stands out, adding one or more cell notes, and, most 
importantly, adding some comments beside the macro commands. Add some 
comments and format the macro name with these steps: 

1. With Al as the active cell, click on the Bold button in the Standard 
toolbar, and click on OK. The macro name should be made bold. 

2. Click on Bl, type Saves current wksht, and press (ENTER) . After 
slightly widening column A, the upper-left corner of your macro 
sheet now looks like this: 



372 



Excel 4 for Windows Made Easy 



GLOBALXLM 



mm 



131 



Save.Worksheet (sl |Saves current wksht 

dS*VEft_ i 

=RETURN0_ _ 1 „ _! 



Running a Macro 

Now that you have a finished and documented macro, you can run it in 
one of two ways. First and most simply, you can press (ctrlH T), the shortcut 
key. Second, the Run Macro dialog box, reached by choosing Run from the 
Macro menu, lists all the macros available on open macro sheets, so you can 
select the macro you want and click on OK. Try both of these methods using 
the following instructions: 

1. From the Window menu, choose MACRO.XLS. 

2. Press (CTRLK 7). The file is saved. 

If you look at the Reference area of the Formula bar or at your 
disk light, you will see a brief indication that the file was saved. Also, 
you may see the hourglass wait indicator come on briefly. Press 
(ctrlH T) several times until you are satisfied it is working. 

3. From the Macro menu, choose Run. The Run Macro dialog box 
opens, as shown here: 



Run Macro 




Is GL0BADOM!Save.Woiksheet 
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The Run Macro dialog box lists the macro you have just created. On the 
left is the shortcut key followed by the name of the macro sheet and the macro 
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name. By clicking on the entry in the list box and then on OK you can run 
the macro. 

4. Click on the entry in the list box and on OK (or double-click on the 
entry). Again you'll notice a brief flicker in the Reference area and 
in your disk light telling you the worksheet is being saved. 

The Run Macro dialog box also serves as a reference if you should forget 
what the shortcut key is on a particular macro. 

If you had any fears about macros, you can now set them aside. You have 
successfully created and run a macro! 

5. Activate the global macro sheet by choosing it from the Window 
menu. 

6. Close the global macro sheet by choosing Hide from the Window 
menu. When you exit Excel, a dialog box will ask if you want to save 
changes to the global macro sheet. Click on Yes and the global macro 
sheet will be hidden, but working, in future uses of Excel. 

To edit the global macro sheet, choose Unhide from the Window menu. 
The Unhide dialog box appears. Highlight GLOBAL.XLM, click on OK, and 
the file is opened. 

If you exit Excel without both hiding the global macro sheet again and 
choosing Yes to save the change to it, the global macro sheet will appear every 
time you start Excel until you choose to hide it and to save the change on 
exiting. 

Remember that File Save erases the current file on disk before replacing 
it with the file being saved, litis means data can be lost. You may want to create 
a backup file through the Options command button on the File Save As dialog 
box. This gives you the added protection of preserving the last file saved. 

Repeat the steps you went through to record the Save.Worksheet macro 
on the global macro sheet, but this time store the macro in a new macro sheet. 
As a review: 

1. Choose Record from the Macro menu. 
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2. Reenter the macro name and key (Save.Worksheet and s). Choose 
Macro Sheet and click on OK. 

3. Choose Save from the File menu to record it and then choose Stop 
Recording from the Macro menu. 

4. Click on Macrol in the Window menu and make cell Al bold. 

5. Click on Bl and repeat the documenting of the Save macro. 

6. Open MACRO.XLS from the Window menu. 

Creating Additional Macros 

Create several more simple and general-purpose macros. This time, 
however, watch the macros being built by reducing the size of the worksheet 
you are working on and exposing most of the macro sheet, as shown in Figure 
10-8. Drag the upper-left corner of the MACRO.XLS worksheet window to 
reduce it to approximately the size shown in Figure 10-8. When you create a 
second macro, Excel places it at the top of the next available column of the 
current macro sheet, unless you tell Excel otherwise with the Set Recorder 



Figure 10-8. A small worksheet set up for watching macros being created 
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option in the Macro menu. Since you have used columns A and B, the next 
macro you create is placed in CI. 

Copy Macro 

Another heavily used option is Copy. While it has a well-defined shortcut 
key built into Excel, many people find it hard to remember. Create a macro 
for Copy and assign it the intuitive shortcut key (CTRL) £p. 

c 

1 . From the Macro menu, choose Record, type Copy.Selection, press 
(tab), type c, and click on OK. The Recording message comes on in 
the Status bar, and the name and shortcut key appear in CI on the 
macro sheet. 

If you cannot see the Copy.Selection macro name on your macro sheet, 
it is because you left Excel between creating the Save macro and this macro. 
If you start a new session, even if you open your old macro sheet, Excel creates 
a new macro sheet to use for macros created in the current session, unless 
you tell it otherwise. (You will see how in a moment. For now, carry on 
creating the Copy macro even though you cannot see it.) In step 4, choose 
the new macro sheet from the Window menu instead of the old one. 

2. Choose Copy from the Edit menu. The blinking marquee appears 
around B2 (or whatever cell you are pointing at) in MACRO.XLS. 
The macro function =COPY() appears in C2 on the macro sheet. 

3. Choose Stop Recorder from the Macro menu. The macro function 
=RETURN() appears in C3 on the macro sheet. Press (ENTER) . Your 
screen should look like that shown in Figure 10-9. 

4. Click on the macro sheet and on cell CI. Click on the Bold tool in 
the Standard toolbar. 

5. Click on Dl, type Copies current select, and press (ENTER) . Your 
second macro is documented. 

Setting a Recording Range 

Your next macro would be placed in El, unless you tell Excel otherwise. 
Since that is off the screen, tell Excel you want it to begin in A5. You do that 
either by selecting a starting cell, in which you want the macro to start or by 
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Figure 10-9. A copy macro added to macro sheet 




selecting a range you want the macro to occupy and then choosing the Set 
Recorder option from the Macro menu. 

If you select a single cell in which to start the macro, Excel fills as many 
cells below that cell in the same column as necessary to complete the macro. 
If the macro reaches the bottom of the column, Excel redirects the macro to 
the top of the next column with a GOTO macro function, and then continues 
the macro in the next column. If you select a single cell and the single cell is 
not blank, Excel finds the last nonblank cell in the column and begins 
recording immediately below it. If the last nonblank cell has the RETURN 
macro function in it, RETURN is replaced by the first macro function of the 
new macro. In this way you can stop recording a macro and then later restart 
where you left off. 

If you select a range in which to record a macro, the range becomes the 
limits within which the macro is contained. Excel starts the macro in the 
upper-left corner and continues to the lower-right corner, placing GOTO 
functions at the bottom of each column. If Excel reaches the limits of the 
range without completing the macro, you get a message that the range is full- 
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Unlike selecting a single cell, if you select a range and the first cell in the range 
is not blank, Excel displays a message saying the range is full and cannot be used. 
Set the starting cell for recording the next macro with these instructions: 

1. Click on A5 of the macro sheet. 

2. Choose Set Recorder from the Macro menu. 

3. Choose MACRO.XLS from the Window menu to return to your 
worksheet. 

Once you have set where you want to place your next macro, you can start 
the macro with either the Record or Start Recorder option on the Macro 
menu. Both options start in the cell you set. The principal difference is that 
Record is meant to start a new macro and Start Recorder is meant to be used 
for adding to the last macro you have entered. Start Recorder does not ask 
you to name or enter a shortcut key for a macro. You can use it only if you 
have already used Record within an Excel session (since you have most 
recently started Excel) or if you have used Set Recorder to establish a starting 
cell. If you have started a macro with Record, you can use Stop Recorder to 
quit macro recording and then restart with Start Recorder as if you had never 
quit; you need not use Set Recorder. 

Formatting Macro 

The custom percent format 0.0% deserves a macro for quick use. Build 
it next and give it the shortcut keys (CTRL H p). 

1. Choose Record from the Macro menu, type Percent. Format, press 
(TAB) , type p, and click on OK. The name and shortcut key appear 
in A5 of the macro sheet. 

2. Choose Number from the Format menu, click on Percentage, select 
0.00%, delete one decimal zero in the text box, and click on OK. 

3. Choose Stop Recorder from the Macro menu to complete the macro. 

4. Click on the macro sheet, click on A5, and make the name bold using 
the Bold tool. Then in B5 type 0.0% Format, and press (enter) . 

5 . Widen column A by dragging on the intersection between columns A and 
B so you can see the full format macro function, as shown in Figure 10-10. 
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Date- and Time-Stamp Macro 

You will often want to add the date and/or time to a worksheet. 
Manually you must type =NOW( ), format the cell, and then use Copy and 
Paste Special to convert the function to a permanent value that does not 
change every time the worksheet is recalculated. It is easier to look at your 
watch or calendar and type the numbers as text so they do not have to be 
formatted. A macro takes this process down to two keystrokes that format 
the cell, enter the function, and convert it to a value. Create the macro 
following these steps: 

1. Click on A9 of the macro sheet and choose Set Recorder. 

2. Choose MACRO.XLS from the Window menu and click on Al if 
the active cell is not already there. 

3. Choose Record, type Date.Time.Stamp, press (TAB) , type d, and click 
on OK. The name appears in A9. 

4. Type =now( ) and press (ENTER) . 

5. Choose Number from the Format menu, select the m/d/yy h:mm 
format, and click on OK. 

6. Widen column A of the worksheet by dragging on the intersection 
between columns A and B until column A is about half again as large. 

7. Choose Copy from the Edit menu, choose Paste Special from 
the Edit menu, click on Values and OK, and press (ESC) . The 
=NOW( ) formula is converted to a value and the copy marquee 
removed. 

8. Choose Stop Recorder from the Macro menu. Click on the macro 
sheet, make the macro name bold, and document your macro as 
shown in Figure 10-11. 

Now try out this macro. 

9. Choose MACRO.XLS from the Window menu, click on B3, and 
press (ctrlH T). 
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Figure 10-10. A macro sheet with the Percent macro 




Figure 10-11. Date/Time Stamp macro 
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The date and time are placed in B3 and it is formatted (although you 
cannot tell), but the column is not widened. Go back to the macro sheet and 
see why. 

10. Click on the macro sheet and widen column A, if necessary, until 
you can see all of the COLUMN. WIDTH macro function, as shown 
here: 

o 

P a ^^J? e -Stamp (d) [Add data/time stamp 
-FbRMU[AC=N(M^ iGetcurrent'date 
=F0F^.NUMBEj^ 

=COLUMNWDTH03/C13 IWiden column 
=CQPYQ j """ 

The COLUMN.WIDTH macro function has two arguments: the width 
itself (your width may be different due to variation in dragging), and an 
optional reference. The reference shown here, CI, does not mean column C, 
row 1, but rather "column 1." This is the problem. To make the Date/Time 
Stamp macro flexible, you need to remove the column reference. Then the 
COLUMN.WIDTH macro function refers to the current selection, which is 
what you want. If your width value is a number with many decimal places, 
edit it also to round it to an even 12. 

11. Click on A12. Edit A12 so that it contains =COLUMN.WIDTH(12). 

12. Return to the MACRO.XLS worksheet and try the macro again in 
B5. It now works the way it should. 

Entering Macros 

All the macros you have created so far have been recorded. You modified 
the last recorded macro to give you what you want. You can also directly type 
in a macro. You can use either an existing macro sheet or create a new one. 
You simply pick an area on the macro sheet and start typing the necessary 
macro functions. This, of course, takes some familiarity with the macro 
functions and their arguments. Once you have written the macro, you can 
name it with the Define Name option on the Formula menu. Try that next by 
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writing a macro to apply the #,##0 format. You can use the Percent macro as 
a model. 

1. Click on the macro sheet and on C5. Type Comma.Format(f) and 
press (down arrow) . 

2. Type ■ 8 for matnumbe r("# > ##O w ) > press (down arrow) , type =return( ), 
and press (up arrow) twice. 

3. Choose Define Name from the Formula menu, click on Command 
as the macro type, press (TAB) , type f as the shortcut key, and click 
on OK. (The name Comma.Format is already in the Name text box.) 

4. Format the name on the macro sheet to make it bold, and enter the 
documentation as shown here: 



T 



Cornroa.Format(f) |iwO Format I 
l=FORMAT.NUMBER 



■ RETURNQ 



5. Try out the macro by returning to the MACRO.XLS worksheet, 
typing 625 03.60 , pressing (enter), and pressing (ctrlK D. It works! 
Next press (CTRL X T), since you have not tried that macro, and format 
the number as a percent. It also works. 

You can see that while you can type in a macro, it is much easier to use 
the recorder. Even if you need to do some heavy modification, building an 
initial structure with the recorder is a substantial benefit. It not only saves 
time, but also it gives you the correct macro function name and argument set. 
It saves you from either having to look these up or use the Paste Function 
option of the Formula menu. 

Rules for Macro Entry 

All parts of a macro can be typed in either upper- or lowercase. Excel 
converts it to uppercase if it is spelled correctly. A macro can occupy as many 
cells in a column as necessary. You can use both worksheet functions and 
macro functions. Place one function per cell. This makes the macros easier 
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to read on the screen and easier to edit. As Excel is executing a macro and 
completes the instructions in one cell, it automatically goes to the cell 
immediately below and continues macro execution. Excel continues down a 
column in this manner until it reaches a terminating or redirecting macro 
function such as RETURN, GOTO, or HALT. During macro execution, Excel 
ignores a blank cell. 

If a macro refers to a range? it is better to name the range than to use 
addresses. An address in a macro is not updated if the worksheet is changed. 
A range name, on the other hand, continues to track an address with changes 
in the worksheet. Also, if you are working with multiple files, it is a good idea 
to precede a range name with the filename followed by an exclamation point. 

Debugging Macros 

When a macro does not behave the way you expect, you want to debug it, 
or correct it. Debugging can be as simple as correcting an obvious spelling 
error in a range name. In many instances, however, the error is not so obvious, 
as with the COLUMN .NUMBER problem in the Date/Time Stamp macro. 

Debugging begins by looking carefully at what happened when the macro 
was run. Were there any error messages, and what did they say? What 
happened on the worksheet? Do you get the same result each time you run 
the macro? 

Next, look at the macro itself. Are there any misspellings? Are there 
missing arguments, periods, or macro functions? If you recorded the macro, 
did the recorder supply some arguments you do not want? Did you use 
absolute addressing when you wanted relative or vice versa? Have you defined 
the range and macro names you are using? 

Finally, go back and record the macro again to see if you get the same 
macro functions a second time. Carefully note all of your actions while you 
are recording the macro. 

In most instances these steps identify the problem. If not, there is one 
further thing that can be done. You can use the Step command in the Run 
dialog box to execute a macro one step (one macro function) at a time. Excel 
will pause after each step so you can see the effects of that step, and continues 
only when you give the command to do so. The Step command also allows 
you to permanendy halt the macro after any step, so you can more fully 
explore the partial results of a macro. Try the Step command now by choosing 
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the DATE.HME.STAMP macro from the Run dialog box. Click on Step and 
the Single Step dialog box appears. Keep clicking on Step Into to see the 
macro execute one step at a time. 

Macro Functions 

A macro function, when executed, performs a predefined function that 
may be available from the keyboard, the menus, or the mouse. Some macro 
functions, however, are fof purposes of further automating a process and are 
not available in any other form. These macro functions cause the macro to 
accept input from the user, wait while the user does something, make a choice 
among several things, or loop through a set of macro functions multiple times. 
These are programming macro functions, and Chapter 12 works with them 
extensively. 

Macro functions have a common syntax that must be followed in order 
for Excel to understand what to do. This syntax is exactly the same as that for 
worksheet functions described earlier in this chapter. 



Function Macros 

Function macros are custom functions you create on a macro sheet and 
then use on a worksheet to return a value or other result. You can distinguish 
function macros from command macros in two ways. First, command macros 
take some action like formatting, copying, or saving. Function macros take 
no action, but rather produce a result, like you might get from a calculation. 
Second, a command macro is wholly contained on the macro sheet and is 
executed with either the shortcut key or the Run option on the Macro menu. 
A function macro is created on a macro sheet, but to use it you must enter 
the resulting function on a worksheet. 

Function macros are generally calculations you have to perform over and 
over. They have arguments through which you supply values and they use 
formulas and regular functions to calculate a result based on the values you 
supply. When you build a function macro, you must use three special macro 
functions that handle the arguments and the result. These functions, in the 
order in which they must be used, are as follows: 
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RESULT 

The RESULT function is used only if you need to change the data type 
of the result. The RESULT function has one argument, the data type number. 
If you have not used a RESULT function to change it, the result is assumed 
to be a number, text, or a logical value. The possible data type numbers are 

1 Number 

2 Text 

c 

4 Logical 

8 Reference 
16 Error 
64 Array 

Data type numbers can be added together except for the reference and 
array types. For example, the default of number, text, or logical is a type 7 
(1+2+4). 

ARGUMENT 

You must have one ARGUMENT function for each argument in the 
function macro you are building, and the arguments must be in the order in 
which they are presented in the function macro. The ARGUMENT function 
can have up to three arguments: a name, a data type, and a reference. You 
must have either a name or a reference. Whichever you specify, the other is 
optional. The data type is always optional. The name must be a legitimate 
Excel name and becomes defined by the ARGUMENT function. It can then 
be used by the formulas and regular functions that follow. If you do not specify 
a data type, Excel assumes it to be a number, text, or a logical value. If the 
value received by the ARGUMENT function is not a default type and you have 
not used the data type argument to change that, you will get a #VALUE! error. 
The reference argument is a cell or range reference on the macro sheet where 
the value received by the ARGUMENT function is placed. If you use both a 
name and a reference, the reference is given the name and can be referred 
to by it. 
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RETURN 

All function macros must end with the RETURN function. The RETURN 
function has one argument in a function macro— the cell on the macro sheet 
that contains the result. 

The formulas and regular functions to be used in a function macro must 
be placed after the last ARGUMENT function and before the RETURN 
function. 

Function macros must be directly entered— they cannot be recorded. 
Build an example to see how they work. The example, call it Tax, calculates 
sales tax. It has two arguments: the amount on which to calculate the tax and 
the tax rate. Enter the tax function macro on the open macro sheet in C9. 

1. Click on the macro sheet and on C9. Type Tax and press (ENTER) . 
Format it as bold. 

2. From the Formula menu, choose Define Name. Click on Function 
and on OK. 

3. Click on cell CIO. Then type =argument( a amount w ,l)> press 
(down arrow) , and then type =argument( M rate",l). Press (down arrow) 

again. 

4. Type =amount*rate, press (down arrow) , type =return(cl2), and 
press (ENTER) . 

5. Click on MACRO.XLS in the Window menu, and click on A5. (Drag 
the MACRO.XLS window to the left if you want to see the macro 
while you are working on the worksheet.) 

6. From the Formula menu, choose Paste Function, scroll the Function 
Category list box and click on User Defined. Then click on the name 
MACROllTax, and click on OK. You are left with the function in 
the Edit area and the word a amount w highlighted. 

7. Press (DEL) six times to remove the arguments, then type 100,8.1% 
and press (ENTER) . 

The result, 8.1, appears in A5, as shown in Figure 10-12. If an argument 
is missing when a function macro is used, the ARGUMENT function for that 
argument passes a value of #N/A to the formulas and functions that follow. 
To allow for optional arguments, you must trap the #N/A with an IF(ISNA( )) 



386 



Excel 4 for Windows Made Easy 



Figure 10-12. Function macro for calculating sales tax 
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Figure 10-13. Tax function macro with an optional argument 
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function. For example, if you want to make the tax rate optional in the 
function macro you just built,, you must change the formula in C12 to 
=amount*IF(ISNA(rate),8.1%,rate). This way, if the rate is not entered, 8.1% 
would be used, as shown in Figure 10-13. 

As you are going back and forth between the macro sheet and the 
worksheet, be aware that the worksheet is not recalculated by simply activating 
it. You must either make an entry to or edit a cell, or press (F9) , the Calculate 
Now key. 

Depending on who is going to use your macros, especially function 
macros, you must consider their error-handling capability. If you are the only 
one who will be using them, they can probably be fairly insensitive to errors. 
If novice Excel users are going to handle them, the function macros must 
work with many different error conditions. You are now in the position of a 
programmer whose hardest job probably is to figure out all the ways someone 
can use their program. A basic ground rule is that if it can happen, it will, and 
if it cannot happen, it might anyway. Chapter 12 deals entirely with writing 
macros to automate a worksheet so a novice can use it (and it does not consider 
every possible error that could occur!). 

You are left with a number of open worksheets. Only the macro sheet has 
potential value. Save it if you want and exit both Excel and Windows by telling 
Excel you do not want to save the other worksheets. 
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THE FLIC FILE FORMAT 

by Jim Kent 

As their name suggests, flic files arc a sequence of still frames which can be rapidly 
flipped through iu achieve ihe illusion of movement— the software equivalent of 
movies. Among the applications and tools that support the flic file format are 
Autodesk's Animator. IBM's Ultimedia Tool Series, and MicrosoftWideo for Windows. 

FILE CONVERSION USING C++ TEMPLATES 

by Timothy Butterfield 

Tim shows how C+- templates can be used to build a parser-based "black box" 
conversion class that allows you to use various data types and processes without 
having to rewrite the basics of the conversion engine for each new combination. 

COMPOUND DOCUMENTS 

by Lowell Williams 

Compound document contain a mixture of different data— text, line art, raster 
graphics (imagesl tabular data, and even audio and video. Lowell makes the case that 
the now-familiar ASCII can no longer fulfill its role as a universal document- 
interchange standard and that we should begin examining compound ASCII 
alternatives like ODL SGML and CDA. 

DESIGNING COMPLEX DATACENTRIC APPLICATIONS 

by Paul Bonneau 

Paul discusses the data structures and client/server architecture of HyperChem, a 
molecular modeling tool that runs on PCs and Silicon Graphics workstations. 
Implemented in about 500,000 lines of C code, HyperChem lets you can create three- 
dimensional atomic structures, visualize and manipulate their structural relationships, 
and perform classical and semi-empirical, quantum mechanical calculations. 

A DOS REDIRECTOR FOR SCSI CD-ROM 

by Jim Hatper 

Getting data from CD-ROM to where your application can use it isn't straightforward 
under MS-DOS. Jim examines how this process works under DOS, then presents the 
code for an MSCDEX-like extension to MS-DOS that allows access to either High Sierra 
or ISO9660 CD-ROMs. This redirector works in conjunction with a TSR-based driver 
for SCSI devices. 
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JULIAN AND GREGORIAN CALENDARS 

by Peter J. G. Meyer 

Peter presents a C function which converts any date within an 1 1 -million-war period 
in either the Gregorian calendar or the Julian calendar into a unique number in the 
range of approximately -2,000.000.000 through 2.000.000.0(H). 

EMBEDDED SYSTEMS 

TOOLS FOR EMBEDDED- SYSTEMS DEBUGGING 

by Christ opln r Perez 

Tools such as microprocessor in-circuit emulators, microprocessor on-chip vicing 
circuitry, and logic analyzers can make the tough job of embcddcJ-Msicnw designer 
easier. Chris Ionises on the JTACi specification and techniques lor gelling the most oui 
ol logic analyzers. 
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NETWORKED SYSTEMS 



INSIDE BTRIEVE FILES 

hy Douglas Rcilly 

Knowing something about Btrieve's uiultKiimciueci features can make the difference 
between success and failure when it comes to recovery* of damaged Btrieve- 
compressed records. 
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EXAMINING PC AUDIO 78 

by John W". RatclijJ 

There's a lot of noise being nude about the need for software support for sound. John 
examines the options available to PC programmers, then presents a sound driver that 
produces high-quality digitized sound on PCs without requiring any extra hardware. 

PROGRAMMER'S WORKBENCH 

PROXY: A SCHEME-BASED PROTOTYPING LANGUAGE 86 

by Burt Leavenworth 

Prow, a Scheme-based interactive language with a C-like syntax, provides all the high- 
level data structures— sets, maps, sequences, and objects — useful for software design 
and prototyping. In addition to showing you how the language can be used in a 
typical prototyping session. Burt gives you the Proxy interpreter. 

COLUMNS 

PROGRAMMING PARADIGMS 1 09 

by Michael Swaine 

The basic idea behind visual programming is, "What you see is what you'll make." 
Michael examines this paradigm, using Serius's development tools for the Macintosh, 

C PROGRAMMING 113 

by Al Stevens 

More D-FIat++ control classes are presented this month, in particular those that provide 
support for pop-down menus, dialog boxes, radio and command buttons, the check 
box. and the base class for buttons. 

STRUCTURED PROGRAMMING 119 

by Je/f Duntemann 

Jeff looks at client/server database management and examines APIs ranging from SQL 
to DLLs. He then speculates on what kind of database support Pascal vendors should 
begin thinking about. 

UNDOCUMENTED CORNER 1 29 

edited by A ndreiv Schulma n 

In his inaugural column, Andrew presents Joe Newcomer and Bruce Horn's analysis of 
the undocumented RGNOliJ structure in Microsoft Windows. The region feature, which 
is maintained by the Windows GDI, is an arbitrarily-bounded area that can be used for 
filling, outlining, and clipping. 

PROGRAMMER'S BOOKSHELF 1 39 

by Hay VaUles 

Kay examines books that focus on artificial life: Artificial Life 11, Emergent Computation, 
and John I loiland's 1 792 edition of Adoption in Natural and Artificial Systems. 
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As a service to our readers, all source 
code is available on a single disk and 
online. To order the disk, send $14.95 
(California residents add sales tax) to Dr. 
Dobb's Journal, 411 Borel Ave.. San 
Mateo, CA 94402. or call 1-800-688-3987. 
Specify issue number and disk format. 
Code is also available through the DDJ 
Forum on CompuServe (type GO DDJ), 
via anonymous FTP from site ftp.mv.com 
092,80.84.1) in the /pub/ddj directory, 
and through M&T Online, a free service 
accessible via direct dial at 415-358-8857 
f8-N-U (For M&T Online support, call 
415-358-9500. extension 220.) . 
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Arriving at the right algorithm can lx.» the 
most creative and enjoyable part of 
programming — and a properly chosen 
algorithm can make the difference 
Ittiwccn a program's success or failure. In 
April, we'll examine a lievy of 
challenging, intriguing, and useful 
a!gi triihuis. 



Julian and Gregorian 

Calendars 

Date-conversion functions for yesterday and today 

Peter J.G.Meyer 



The Western calendrical sys- 
tem — known as the Julian cal- 
endar and consisting of a year 
of 12 months and of 365 days 
with an extra day every fourth 
year — was established by Julius Cae- 
sar (following the advice of the Alexan- 
drian astronomer Sosigenes) in 46 B.C. 
The extra day may not have been 
added consistently until a.d. 8, during 
the reign of Augustus. Subsequently, 
this calendar became widespread as a 
result of the expansion of the Roman 
Empire. The system of numbering 
years Anno Domini was instituted in 
a.d. 525 by the Roman abbot Diony- 
sius Exiguus. 

The Julian calendar assumes that the 
average length of a year is 365 days 
and six hours (since one day is added 
every four years). The length of the 
year assumed in the Julian calendar ex- 
ceeds the current true value by about 
11 minutes, resulting in an error of 
about tliree days every 400 years. Thus, 
as the centuries passed the Julian cal- 
endar became increasingly inaccurate 
with respect to the solar year as de- 
fined in terms of the solstices and the 
equinoxes. This was especially trou- 
bling to the Church because it affect- 
ed the determination of the date of 
Easter, which bv the sixteenth century 
was slipping gradually into summer. To 
resolve these problems, the calendar 
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was reformed in 1582 on the authori- 
ty of Pope Gregory XIII, and the mod- 
ified calendar is called the Gregorian 
calendar. 

In this article, Til present a C func- 
tion which converts any date within an 
1 1-million-year period in either the Gre- 
gorian calendar or the Julian calendar 
into a unique long int, a number in the 
range of approximately -2,000,000,000 
through 2,000,000,000. A function is al- 
so given for conversion of a long int 
back into a date in one of the calen- 
dars. This permits conversion between 
dates in the Julian and Gregorian cal- 
endars and provides a basis for other 
date-manipulation functions. The date- 
conversion functions given in this ar- 
ticle are used in a general C-function 
library that I developed, the Dolphin 
C Toolkit. 

Universal Date Conversion 

According to the Gregorian reform, ten 
days (or more exactly, dates) were omit- 
ted from the calendar. It was decreed 
that the day following October 4. 1582 
(which was October 5, 1582 in the old 
calendar) would thenceforth be known 
as October 15. 1582. In addition, the 
nile for leap years was changed. In the 
Julian calendar, a year is a leap year if 
it is divisible by h. In the Gregorian cal- 
endar, n year is a leap year if it is di- 
visible by 4, with the added criterion 
that years divisible by 100 must also in- 
divisible by *i00. Thus the years J 600 
and 2000 are leap vears, Inn 17(H). 1800, 
1900. and 2100 are not. Finally, it was 
decreed thai new rules for ihe deter- 
mination of the dale of 1-aster would !x* 
adopted. 



Day Numbers 

Astronomers use a system of numbering 
days called Julian<lay numbers. The term 
w Julian-day number" (unlike the term 
"Julian calendar") does not derive from 
the name of Julius Caesar. This num- 
bering system is said to have been 
named after Julius, the father of its inven- 
tor. The astronomical system of Julian- 
day numbers should not be confused 
with the simpler system of the same 
name, which associates a date with the 
number of days elapsed since January 
first of the same year (according to 
which December 31, 1993 is Day 365). 

The astronomical Julian-day number 
of the day specified by a date in either 
the Julian or the Gregorian calendar is 
the number of days elapsed from the 
day designated as January L 4713 B.C. 
in the Julian proleptic calendar. (See the 
textbox entitled, "The Proleptic Calen- 
dars" for more information.) Thus, the 
Julian-day number of 1/1/-4712 (J) is 
0. Note that 4~13 H.c is the vear— 4712. 
The Julian-dav number of 10/10/1992 
is 2.448,906. 

There is a simple relationship be- 
tween Gregorian-day numbers, as used 
in this method of date conversion, and 
Julian-day numbers. Given a Gregorian- 
da y number, the corresponding Julian- 
day number is obtained by adding 
2.2 t ».l6l, tlie Julian-day number of Or 
lober 3 5. 15$-h. 

Listing One. page 158, contains the 
header file, DATECONV.H, used by the 
due- eon version functions presented in 
this article. A structure Date contains 
values for day. month, and year, plus a 
value grin (for Gregorian-day number, 
as explained shortly) and a Hag indi- 



The Greenleaf Collection of C Tools 



Windows 11 



32-Bit DOS 




MS-DOS 



NEW VERSION 



Greenleaf CommLib 4.0 

CommLib 4.0 contains over 300 robust asynchronous 
communications functions including XMODEM, YMODEM, 
ZMODEM, Kermit and ASCII file transfer, XON/XOFF, 
RTS/CTS, and DTR/DSR handshaking, smart modem 
control, interrupt driven serial I/O for 13 drivers using 
consistent "Level T API for all drivers. Supports DOS, 286 
Fxtended DOS, and Windows 3.1. $359. 
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Greenleaf PowerComm 

PowerComm Toolkit for Windows is a native 32-bit Windows 
3.1 implementation of Greenleaf CommLib v4.0. Extends 
CommLib capability using DLL and virtual device driver 
(VxD) to put time sensitive interrupt service routines at "Ring 
0" for optimal throughput. Supports multiple Windows 
and/ or DOS applications and normal and most standard 
multi-port hardware. $179 (requires CommLib). 

Greenleaf CommLib Professional 

New standard asynchronous communications toolkit for 
Windows, DOS, and 286 Extended DOS. Includes Greenleaf 
CommLib 4.0 and PowerComm Toolkit for Windows. $538. 
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Greenleaf Comm++ 2.0 

Comm++ class library includes numerous classes for asynch 
communications — from elemental hardware control classes 
to file transfer and terminal emulations include VT100, VT52, 
and ANSL XMODEM, YMODEM, ZMODEM, Kermit, and 
ASCII file transfers. Many handshaking options. Screen 
drivers. Supports numerous standard and intelligent 
multiport boards f or DOS, Windows 3.x, and OS/2 2.0. $249. 

Greenleaf ViewComm 

' ?ts you see data and status on the line + timestamps. 
Capture to buffer or file. Review using ASCII, hex, decimal, 
octal, or EBCDIC display. Extensive triggers: modem signal 
and string match criteria to start or stop capture. Source Mode 
lets you send characters from keyboard, file, or both. 
Configurable, push-to-DOS, many more features. $399. 

Greenleaf Functions 

Over 370 functions including DOS interface, keyboard, 
mouse, color text, graphics, screen & video, string, time and 
date, polled-mode serial, interrupt services and Ctrl-Break, 
equipment interface, and extensive printer support. $229. 

Greenleaf SuperFunctions 

ouperFunctions includes (over 370 functions) windows and 
basic menus (from DataWindows), Expanded Memory 
support, extensive mouse and keyboard support, DCS 
Critical Error Handler support, advanced DOS functions, an 
exhaustive set of time and date manipulation functions 
including project scheduling support, etc. No overlap with 
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dBLib / SoftC Database Library 3.2 

SoftC Database Library now published by Greenleaf. 
Reviewers rave about the speed and flexibility of this 
extensive "xBASE" interface library. Supports dBASE III+ & 
IV, FoxBASE+, FoxPlus, dBXL, Quicksilver, and Clipper, 
including their proprietary index and memo file systems. 
Rated fastest and most compatible with C language. 
Complete ISAM database toolkit. Highly portable ANSIC 
dBUo source supports DOS, Windows 3.1 (DLL included), 
UNIX, and OS/Z $249. 

Greenleaf DataWindows 3.0 

DataWindows 3.0 with MakeForm data entry form generator, 
a true WYSIWYG designer to create resource files. Changes 
to forms do not require recompilation! 400 functions for 
logical windows, transaction oriented data entry, and 
extensive menus. 13 installable state-change functions 
including field and form validation. $350. 

Greenleaf Financial MathLib 

A unique 19 digit "DECimal" number system avoids floating 
point errors. Over 195 functions include arithmetic, error 
processing, test, array math, transcendentals, percentagrs, 
I/O, simple & compound interest, loan amortization, 
discounted cash flow, annuities, actuarial and general 
business functions, bond calculations, depreciation 
schedules, date manipulations, statistics, linear estimation. 
Modeled ontheHP-12C calculator. $395. 

Greenleaf Financial MathLib++ 

MathLib++ is a C++ version of Financial MathLib described 
above. C++ iostreams are fully suported with overloaded I/O 
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simplified. One function call gets a complete loan 
amortization table. Another computes the Internal Rate of 
Return of a set of discounted cash flows. $199. 

All Greenleaf Products come with reference 
manual, online documentation system (with free engine), 
FREE unlimited phone support, FREE BBS access, newsletter; 
extensive compilable examples for each function, NO 
Royalties, 60-day money-back guarantee, and are backed by 
the industry's most experiencedftech support staff. Greenleaf 
Gold Support (extra annual fee) puts upgrades on your desk 
as soon as they are released and gives U.S. customers toll-free 
access to tech support and BBS. MOW 
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(continued from pa^a A5-?y 
eating the validity of the date. A day/ 
month/year value is ambiguous until the 
particular calendar is specified. A dale 
is completely specified using an instance 
of the structure together with an instance 
of a separate char variable that has the 
value G or J. 

We first need to ascertain whether a 
given year is a leap year (in the Julian 
or Gregorian calendars). Functions to 
do this are given in DATECOW.C (see 
listing Two, page 158J. A universal date- 
integer conversion method, as under- 
stood here, consists of two functions: 
The first takes a date (either Julian or 
Gregorian) and returns a positive or neg- 
ative integer (long inly, the second takes 
a long int and a calendricai specifica- 
tion (G or J) and returns a date in that 
calendar. It does not matter which date 
corresponds to day 0 as long as there 
is a quickly computable, one-to-one cor- 
respondence between dates in a calen- 
dar and numbers. 

The method presented here converts 
dates into the number of days before 
or after October 15, 1582 — the day that 
the Gregorian calendar came into ef- 
fect. Thus, October 15, 1582 (Grego- 
rian) corresponds to day 0; October 
16, 1582 (Gregorian) to clay 1; and Oc- 



tober M, ISK2 (Gregorian) I'j day -I. 
The number corresponding to a dale 
is thus called lite "Gregorian-day num- 
ber." I Jules in the Julian calendar, as 
well as those in the Gregorian calen- 

The length of the 
year assumed in the 

Julian calendar 
exceeds the current 

true value by about 
11 minutes 



dar ; are mapped into Gregorian-day 
numbers. Thus, the day preceding Oc- 
tober 15, 1582 in the Gregorian cal- 
endar is both October 4 in the Julian 
calendar and October 14 in the Gregor- 
ian calendar — both have Gregorian- 
day number -1. 

The code for the function to convert 
a date in one of the calendars to a Gre- 
gorian-day number, and for the func- 



tion to convert a Gregorian-day num- 
ber to a dale in a specified calendar, is 
given in Listing Two. The Dale struc- 
ture uses /o//£ in/ variables (signed) lor 
the year and the Gregorian-clay nun 
ber. The largest integer represeniable - 
a signed /o;/ t t> int is 2, l47.iS3//t7. Dn ■ 
to the method of calculation, however, 
the largest Gregorian -day number that- 
can be used is 2,146,905,911. This cor- 
responds to the dates July 11, 5,879,611 
(Gregorian) and October 19, 5,879,490 
( Julian). By that lime, dates in the Gre- 
gorian and Julian calendars will differ 
by about 121 years. (This will be of no 
practical importance since by that tinv 
both calendars will likely have bec- 
superseded.) 

To use the conversion functions, de- 
clare a structure of type Date (defined 
in Listing One) and pass to the func- 
tions a pointer to the structure along 
with a calendricai specification (G or J). 
If you are converting from Gregorian- 
day number to date, define the gdn 
structure \-ariable before calling gdn_to_ 
dateQ. Conversely, define the variables 
day, month, and year before calling 
dateJo_gdn(). On return from die func- 
tions, extract either gdn or the date val- 
ues from the structure. Before using the 
gdn value, it is advisable to check the 
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tyejfeen bmitted from the cal- ->'i ally) at March 21. The Gregorian cal- 
Tn-;f^'jdie calendar could have ,^ in Britain (and in 

&■ ^ • ». . . - the British colonies) in 1752, with 



Sinned so as to keep the year 
the seasons without omit- 




;..j\,i.A 



y <r day5 at all, since only the 
njle for leap years is required to 
fodetiaar synchronized with 
axes: In fact, ten days were 
in order to fix the date for 
^ng equinox at March 21, 
^as trie date of the equinox at 
of the Council of Nicea in 
century. 
aV.the promulgation of Pope Gre- 
'sjdecree, the. Gregorian calendar 
ted immediately in Italy, 
Portugal, and Poland, and short- 
ereafter in France and Luxem- 
;;;puring the next two years, most 
*i| regions of Germany, Belgium, 
d, and the Netherlands came 
. Hungary followed in 1587. 
Jest of the Netherlands, Denmark, 
y, and Switzerland made the 
;e in 1699-1701. 

^ffie time the British were ready 
gquiesce, the old calendar had 
by one more day, requir- 



September 2, 1752 being followed im- 
mediately by September 14, 1752. 

In many countries, the Julian calen- 
dar was used by the general popula- 
tion long after the official introduction 
of the Gregorian calendar. Thus, events 
were recorded in die sixteenth to eigh- 
teenth centuries with various dates, de- 
pending on which calendar was used. 
Dates recorded in the Julian calendar 
were marked w O,S." for "Old Style," 
and those in the Gregorian calendar 
were marked B N.S." for "New Style." 

To complicate matters further, the 
first day of the year was celebrated in 
different countries and regions on 
January 1, March 1, March 25, or De- 
cember 25. With the introduction of 
the Gregorian calendar in Britain and 
the American colonies, people ceased 
to celebrate New Year's Day on March 
25, as had been their custom, and in- 
stead began to celebrate it on January 
1. Previously, March 24 of one year 
had l>ecn followed bv March 25 of the 



next year. Thus George Washington's 
birthday, which was 2/11/1731 O.S., 
became 2/22/1732 N.S. 

Sweden adopted the Gregorian cal- 
endar in 1753, Japan in 1873, Egypt in 
1875, China and Albania in 1912, Bul- 
garia in 1915 or 1916, Romania in 
1919, and Turkey in 1927. Following 
the Bolshevik Revolution in Russia, it 
was decreed that the day following 
January 31, 1918 O.S.. would become 
February 14, 1918 N.S. 

In 1923, the Eastern-Orthodox 
church adopted a modified form of the 
Gregorian calendar. Whereas in the 
Gregorian calendar a century year is a 
leap year only if division by 4 leaves a 
remainder of 1 . 2, or 3, in the Eastern 
system a century year is a leap year on- 
ly if division bv 9 leaves a remainder 
of 2 or 6. This renders the calendar 
slightly more accurate. October 1, 1923 
in the Julian calendar became October 
14, 1923 in the Eastern-Orthodox cal- 
endar. The date of Easter is determined 
bv reference to modern lunar astrono- 

4 

my (in contrast to the more approxi- 
mate, rule-based, lunar model of the 
Gregorian system). 

— P.M. 
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(continued from page 154) 
validity flag, which will he TKL'F if I he 
date passed was a valid date in the spec- 
ified calendar, and FALSI! otherwise. For 
example, the attempt 10 convert Febru- 
ary 29, 1900 (Gregorian) to a Gregorian- 
day number will produce a FALSI: in 
the validity variable. 

The IJloori) function in Listing Two 
is analogous to the Microsoft floating- 
point library JloorC) function, and over- 
comes a small problem in integer arith- 
metic. The date-conversion functions 
described earlier need a long-integer di- 
vision operation such that, for all long 
integers a and b, a/b is the largest inte- 
ger not greater than the real number 
a/b. MSCs division operator produces 
this result if a and b are positive, but 
not if a is negative, and b is positive. 
The IfloorQ function provides what is 
needed. 

Finally. DATECONV.C also contains 
a function to convert a Gregorian-day 
number into a day of the week. This 
is independent of the particular calen- 
dar used. 



Testing 

No f und ion or program can be relied 
upon unless il is tested thoroughly. The 
program DATFTKST.C in Listing Three 
fpage 159) lests the functions in Listing 



Tloe astronomical 
Julian-day number 
is the number of 
days elapsed from 
January 1, 4713 b.c. 



Two. DATETEST takes two numbers, n 
and m ; on the command line and per- 
forms conversions for n, n + m. n-m. 
n + 2 * m ; n-2 * m. and so on ; up to the 
largest integer that can be handled. It 
first converts the number to a date us- 
ing gdn_to_dateO* then converts the 
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The Proleptic Calendars 



* date recorded in history pri- 
to^C&ober 15, 1582 (Gregori- 
such as the; coronation of 
Smgnp as Holy Roman Emper- 
* |3irisiSnas day in the year 800, 
g JiT the Julian calendar, since 
Sse r dates the Gregorian calen- 
hot yet been invented. We 
However, identify particular days 
^October 15, 1582 (Gregorian) 
of dates in the Gregorian 
simply by projecting the Gre- 
dating system back beyond the 
implementation. A calen- 
|6btained by extension earlier in 
:than its invention is called "pro- 

vexample, although the Grego- 
arTcalendar was implemented on Oc- 
^*<Jl5 t 1582 (Gregorian), we can 
Jsay that the date one year before 
^^Cktober 15, 1581 (Gregorian), 
K ej^though people alive on that day 
have said that the date was Oc- 
egr;5, J 1581 (the Julian date at that 
As another example, the date 
coronation of Charlemagne was 
ber 29, 800 in the Gregorian 
tic calendar. 
Similarly, dates after October 15, 
(Gregorian') have equivalent, but 
t, dates in die Julian calendar, 
xample, this article was corn- 
on October 10, 1992 in the 
gbrian calendar, but we could 




equally well say that it was complet- 
ed on September 28, 1992, in the Ju- 
lian calendar. As another example, 
the date of the winter solstice in the 
year 2012 is December 21, 2012 (Gre- 
gorian), which is December 8, 2012 
(Julian). 

Thus, any day in the history of the 
Earth, either in the past or in the fu- 
ture, can be specified as a date in ei- 
ther of these wo calendrical systems. 
The dates will generally be different. 
In fact, they will be the same only for 
dates from March 1, 200 to February 
28. 300. The dates in neither calendar 
will coincide with the seasons in the 
distant past or distant future, but that 
does not affect the validity of these 
calendars as systems for uniquely iden- 
tifying particular days. 

Astronomers designate years B.C. by 
means of negative numbers. In order 
to avoid a hiatus between the year 1 
and the year -1. there lias to be a year 
0. Thus, astronomers adopt the con- 
vention: a. P. 1 is equal to Year 1; 1 
u.c. is equal to Year 0; 2 B.C. is equal 
to Year -1: and so on. More general- 
ly, a year popularly designated n u.c. 
is designated by astronomers as the 
year-Cn-iy Finally, the mles for leap 
years in lx>th calendars are valid for 
the year 0 and for negative years, as 
well as for positive vears. 

— RM. 



resulting date back to a number using 
daieJo_gdn(). The program does this 
lor both the Gregorian and the Julian 
calendars. If the number resulting from 
convening a number to a date and ba- :•; 
to a number were different from the h : - 
tia! number, then a bug would be re- 
vealed. 

If DATETEST is run with command- 
line parameters 0 and 1, then all dates 
forward and backward from October 
15 ; 1582 (Gregorian) are tested, al- 
though the program displays the results 
only for every Nth conversion. (N is 
currently defined as 3000 in Listing 
Threej 

Since there are over four million in- 
put numbers that could be tested, ex- 
haustive testing is not practical unless 
you can run the program on a very fast 
computer. It has been shown, however, 
that when using DATETEST 0 1 ; no bugs 
are revealed for all Gregorian-day num- 
bers in the range -14,235,000 through 
14.235,000. The corresponding dates in- 
clude all dates in both calendars for all 
years from -37,390 to 40,555. 

Derivative Calendrical Functions 

Given the basic date-number conver- 
sion functions, it is not difficult to de- 
velop other calendrical functions. In 
fact, there are 38 date functions in the 
Dolphin C Toolkit, including functions 
to determine which of two dates is ear- 
lier, how many days separate two dates, 
and how many weekdays separate two 
dates. There is also a function to for- 
mat a date in hundreds of different 
ways. 

Conclusion 

The Dolphin C Toolkit includes a dem- 
onstration program, CAL_FNS. which al- 
lows conversion between dates and Ju- 
lian-day numbers. This program also 
provides the day of die week of any date 
and the number of days between two 
dates. CALJFNS allows us to determine, 
for example, that the storming of the 
Bastille occurred on a Tuesday. We can 
also discover tliat on the evening of April 
IS. 1^21. when Luther defended himself 
against clian^es of heresy before the Holy 
Roman Emperor, Charles Y. it was a 
Thursday. Finally, the coronation of 
Charlemagne as Holy Roman Emperor 
in Rome on Christmas day, 8(X>. cwunvd 
i>n a Friday. We may reasonably suppose 
ih.it festivities continued throuuhoul ih. 
\\ eekend. 
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Listing One (Text begins on page 152,) 

/• DATECOWV.H — Header file for date function* - U«t mod.: 1992-10-10 */ 
•define TRUE 1 
•define FALSE 0 
typedef ctruct 
t 

int day: 
int Bonth; 
long year: 

long gdn; /* gdn and valid are for internal use V 

int valid; /* by functions ih this library •/ 

) Date; 

A declarations of function* defined in DATECOHV.C •/ 

void date_to.gdn(Date «dt. char calendar): 

void gdn.to.date(Date »dt. char calendar): 

long lfloor(long a. long b) : 

int iB_leep_yeer_c(iong year, char calendar): 

int ie_leap_year (long year): 

void »et_feb.length(long yr. char calendar): 

void re«et_feb.length(void): 

int day_of„veek(long gdn); 



Listing Two 



/* DATECOWV. C — Universal date conversion functions — Last vod: 1992-10-10 •/ 

♦ include <STDLIB.B> /• for labsO */ 
•include <CTTFE.H> 

iundef toupper /* so as to use function, not wcro */ 

•include "DATECOWV.H" 
int ■onth.lengthfHj 
• { 

0. 31. 2B. 31. 30. 31. 30. 
31. 31. 30. 31. 30. 31. 0 

): 

/* etonths 0 and 13 have 0 days */ 

/* the calendar parameter is always 'G' or 'J': C ■ Gregorian, J * Julian */ 

int is_leap_year_c (long year. char calendar) 

{ 

calendar ■ (char) toupper ((int) calendar): 

if ( yeafM ) /• if year not divisible by 4 */ 

return ( FALSE ): 

else 

{ 

if ( calendar ■» 'J' ) 

return ( TRUE ): 
else /• calendar — *C* •/ 

return ( ( year%100 t» 0L J ! year%400 — 01 ) 7 
TRUE : FALSE ): 

) 



) 

int is. leap-year (long year) 
< 

return ( is. leap. year. c (yeai . 'G') ); 
) 

void eet_f eb_length(long yr.char calendar) 
( 

■onth. length [2] « 28 + is. leap_year_c (yr .calendar) ; 
) 

void reset. feb„ length (void) 
( 

nonth. length [2 i = 28; 
) 

/* function to convert date to Cregorian day number sets valid flag to FALSE 

* if date invalid, otherwise returns number of days before or after the day 

• the Gregorian calendar case into effect ( 1S-OCT-1562) */ 

void dote_to_gdn(Date *dt, /• dt is a pointer to a structure */ 

char calendar) /• 'G* or 'J' •/ 

( 

int day * dt->day; 
int month * dt->«onth; 
long year * dt->year: 
long gdn: 

calendar » (char) toupper ((int) calendar ) : 
set. feb.length (year .calendar) ; 
if ( Btonth < 1 !! oonth > 12 

! j day < 1 J ! day > sonth.lengthlBonth] .) 
dt-> valid > FALSE: 

else 

C 

/* calculate number of days before/after October IS, 1582 (Gregorian) */ 
gdn = (year-l)*365 + If loor (year-1 .4L) ; 
if ( calendar « 'G' ) 

gdn If loor (year- 1.400L) - If loor (year-1 . 100L) ; 
while ( — stonth) 

gdn ♦* Bonth.length [stonth] : 
gdn +» day - 577736L - 2* (calendar—' J') ; 
dt->gdn « gdn; 
dt->valid » TRUE: 
J 

reset _feb_length() ; 
) 

/* function to convert gregorian day nusber to date */ 

void gdn_to_date(Date *dt,char calendar) 

{ 

int Bonth. i. exception: 
long year. gdn. jk. yi00. y«J0: 
calendar ■ (char) toupper ( (int) calendar) ; 
gdn - dt->gdn: 

gdn ♦« 577735L ♦ 2*(calendar-»*J') 
y400 - 146100L - 3*(calendar«» , G') 
yl00 - 36525L - (calendar— 'G') 
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y k - 1461L: 
exception • FALSE: 

ye- r - *O0Mf loor(gdn.y4ee) : /• *W-year. periods •/ 

J dn y 4O0Mfloor(gdn.y400) : 
if ( gdn > 0L ) 

year *- lfle*lfloor(gdn.yt0O) ; /* lOO-year period* */ 

gdn y 100* I flood gdn. y 100) ; 

exception • { gdn *■ OL && calendar *G' ): 

if ( gdn > OL ) 

year loor(gdn.y4) : /• *-year periods •/ 

gdn y**lfloor(gdn.y4) ; 
if ( gdn > OL ) 
( 

i » 0: 

while ( gdn > 365 U ♦•*<«) 
t 

year**: 

gdn — 365L: 

) 

} 



) 



if ( exception ) 
gdn * 366L; 

/• occur t once every hundred years with Gregorian calendar */ 
die 

{ 

year**: 

gdn**; 

) 

get. feb.length (year. calendar) ; 

oonth » I : 

while ( aonlh < 13 W gdn > aonth_length [month] ) 

gdn -* »onth_ length [nonth++] ; 
if ( »onth *» 13 ) 

C 

no nth ■ 1: 

year**: 

J 

reset.feb.lengthO : 
dt->day ■ (int)gdn; 
dt->Bonth * oonth; 
di->year ■ year; 
dt-> valid * TRUE: 

long moor (long a. long b) /• assunes b positive •/ 

return ( a >- 0L ? a/b : ( a*b — 0L ) - 1 - lab«(a)/b ): 

/* labsO returns the absolute value of its long int argument */ 

/• returns day of week for given Gregorian day number ; ©"Sunday . 6*Saturday */ 

int day _of_w*ek( long gdn) 

( 

return ((int) (((gdn%7)M2)%7)) : 
) 



Listing Three 



/* DATETEST.C — Tests date conversion routines -- Last mod.: 1992-10-10 •/ 
/• Link with DATECOWV.OBJ by using CL DATETBST.C DATECOKV.C */ 



i include <STDIO-H) 
8 include <STDLIB.H> 
I include <CCMIO.H> 

•include "DATECOSV.H" 



/* for exit() */ 



/• number to start with •/ 
/« increment */ 



void aointint argc. char ••argv) : 

void displaydong n) : 

void test (long n. char calendar): 

Date date; 

•define ESCAPE *\xlB' 
•define H 3000 

■define MAXIhUM_GDN 2146905911 

/* largest Gregorian day number that can be handled */ 
--/id sain (int argc. char **argv) 

long n. o: 

if ( argc < 3 ) 

pr int f ("Syntax: DATETEST start increment \n") ; 
return; 
) 

n ■ atoltargvfl] ) ; 
■ ■ atol(argv[2| ) ; 
printf ("Quit with Escape."): 
while ( TRUE ) 
( 

if ( n%(N«m) — 0 ) 
( 

display(n) : 
diaplay(-n) : 
) 

testtn.'C): 
test(n.'J'): 
teat(-n.'G') ; 
teit(-n.'J'): 
if ( n ) HAXIKUH.GDN-m ) 
( 

printf("\ngdn • %ld".n); 
return; /* since next n is too large */ 
) 

n ■; 

if ( kbhicO ) 
( 

if ( gctchO — ESCAPE ) 



break; 



) 



1 

void displaydong n) 
( 

date. gdn • n; 

printf ("\ngdn **121d",n>: 

gdn.to_datc(&date. 'C' ) ; 

printf (" W2d/W2d/*ld (G)". date. oonth. date. day. date. year) ; 
gdn.to.dacef&date. *J' ) : 

printf (" *02d/%02d/%ld (J)". date. month. date. day. date. year) : 
) 

void test (long n.chsr calendar) 
( 

date. gdn * n: 

gdn.to.date(&date, calendar) ; 
if ( (date. valid ) 
( 

print f("\ngdn » %ld *d/%d/\ld (He) Date invalid!". 

date. gdn. date, month. date. day. date. year .calendar) : 
exit(l) : 
) 

date. gdn * 0L; 
date.to_gdn(&date .calendar) : 
if ( date. gdn !■ n ) 
C 

printf("\ngdn « %ld %d/W\ld (V) n » tldl". 

date . gdn . date . month . date . day . date . year . calendar . n) ; 
exit(l) : 
) 

) 



End listings 
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Turbo Graphics for Printers, 
Plotters— and now DTP Files 

Publication-quality hard copy graphics for Turbo C & 
Pascal! Install our BGI printer drivers and your screen 
graphics program prints graphs too. Add our new DTP 
file formats and import the graphs to your desktop 
publisher or word processor. Great for user manualsl 

• LaserJet, Epson, DeskJet. DeskJet 500C, PostScript, 
ProPrinterX24, PaintJet, HPGL plotters, and more. 

• PCX, TIF, CGM, WPG, DXF, Video Show, color dot 
matrix printers, and more {Supplemental Driver Disk). 

• Arc, bar, bar3d, circle, fitlpoly, line, ellipse, pteslice, 
line/fill patterns, etc— all 100% interchangeable with 
Turbo's screen graphics. Plot to LPT, COM. or disk. 

• Use PostScript fonts and LJ soft fonts {including LJIII 
scalable fonts), plus Borland stroke fonts. 

• Not a screen dump. You get the full printer resolution. 

• Not TSR. Loads on the heap at runtime. EMS optional. 

• Portrait and landscape. Control image size/location. 

• Compatible with Graphics Menu, Zinc, Turbo Vision. 

• "Highly recommended." - Jeff Dunteman. Dr. Dobbs, 
11/90. Our customers include Harvard, UCLA, HP, 
TRW, and Los Alamos Labs. 

For Turbo C 2.0, C+ + , Pascal 5-6. Personal License 
$149, Developers with royalty-free distribution $299. 
Supplemental DTP drivers $99. 30-day mAb guarantee. 
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Lon Grwwn/ DMA and the PC; 386 upgrade boards for 
286-based PS/2s; a parallel-port-based LAN adapter. 

FIRST LOOKS 

Zenographic's SuperPrint speeds up Windows 
printing. 

DR DOS 5.0 is Digital Research Inc.'s latest 
and best version of its charismatic 
DOS clone. 

FastCAD 3-D combines 3-D modeling with the magic of 
PhotoRealistic Renderman. 
WordPerfect Office: Desktop utilities 
and application integration for 
standalone or network PCs. 
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Service, Support, and Reliability: 
Agenda for the Nineties 

Bill Machronel Not even PC Labs can quantify service, 
support, and reliability. So we consulted the best 
information base in the world: PC Magazine readers. 
Almost 20,000 of you filled out our survey, rating the 
equipment and services you have received from more 
than 70 companies. 

Head to Head: Products Compete on Service and 
Reliability 

A Readers' Guide to This Issue 

Mary Kathleen Flynn and PaulB. Ross/ A rnini- 
Michelin guides you through the survey results, score 
boxes, charts, and reviews in this special issue. 

The Score Boxes, Line by Line 

Desktop PCs: The Long Road to Reliability 

Mary Kathleen Flynnl Nearly 1 8 ,000 readers have rated 
the service and support they got from 27 system vendors. 
But numbers tell only part of the story. We phoned 
hundreds of survey participants to hear their tales of 
competence and incompetence, frustration and 
satisfaction, irritation and joy. 
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Graphics Adapters: Mostly Trustworthy 

Rock Miller! Graphics adapters don't fail very often, but 
when they do, you'll want the manufacturer to back you . 
up with knowledgeable tech support, timely driver 
updates, and prompt repair service. PC Magazine 
reviews the performance of 1 1 companies in providing 
service and support. 

Graphics Adapters: Incidence of Problems 
Hard Disks: Drive Carefully 

Donald P. Willmottl Despite the fragility of their moving 
parts, our survey of 13 hard disk manufacturers shows 
that hard disks are reliable — more reliable, in fact, than 
the service some users have received. 

Conquering Disk Boot Failures 

Printers: Making Good Marks 

Tom Ungerl Frustrating as printer breakdowns may be, 
at least they tend to be few. And although printers exhibit 
a host of minor problems, on the whole they turn out to 
be models of reliability. 

When Good Printers Go Bad: 

A Rogue's Gallery of Printer Problems 

Portables: Long-Distance Runners? 

Jennifer Zainol Survey respondents expect their 
portables to be well equipped to handle the demands of 
life on the road. Find out how well a dozen top vendors 
meet those product and service expectations. 

Third-Party Service: From Warranty to Eternity 

Christopher Stetson! What do you do when your 
warranty expires? Some users turn to national or regional 
third-party service providers. 

Reading the Fine Print: Anatomy of a Warranty 



■ That old research standby, the encyclopedia, has made the 
transition to CD-ROM. We examine three familiar titles in the 
new format. 

■ The Game of Harmony, an arcade game, stresses logic and 
ingenuity instead of mass carnage. 

■ Balance of the Planet challenges gamers to come down to 
earth and manage our failing environment. 
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Bill Howard 
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PCs to the office. 
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' DATE CONVERSION 

j This is a user-defined function that converts 
[ a date expression in dBASE IV into a more 
readable version. I use this simple function 
with all of my code; it makes any computer- 
generated report more personable. 



1 



FUNCTION cdate 



PRIVATE mdate 
- ■' PARAMETER mdate 




For example, 



J mbirth - CTOD< "3/10/6 1" ) 
? CDATE (mbirth) 
* Result: March 10, 196,1 

This also can be expanded to include other 
information such as the day of the week. 
Benjo Dans 
Saginaw, Michigan 

: j [J Indeed, date functions like this one 
Ss H are a mainstay in most program- 
BEEMB mers' dBASE toolkits. Many vari- 
ations on this theme are possible. For ex- 
ample, to create a function that also returns 
the day of the week, replace the RETURN 
statement above with the following: 



V; RETURN ..(CDOW 



1 



! 




The resulting function works like this: 

mbirth ■= CTOD( "3/10/61" ) 
? CDATE (mbirth) 

* Result: Friday, March 10, 1961 

Or. if you need a shorter version for a re- 
port with space limitations, try 



* RETURN ( SUBSTR ( CMONTH ( mdat e ft "l 7 3 ) . + ') 
t ] I* " + LTRIH ( STR ( DAY < mdate ) > 2 ) r ) > ; £ , 



Databases 



I DATE CONVERSION: 
Here's a UDRhat 
converts a dBASE date 
expression into everyday 
format; : 

I CONVERTING NUMBERS 
TO WORDS: A FoxBASE 
program that converts 
numeric expressions into 
their English equivalents. 

i LEFT-PADDING WITH 
ZEROS: A combination of 
dBASE functions lets you 
left-zero-pad a numeric . 
field. 



fc. 



, • + STR(TZAR(mdate)^4)_);g^^r 



which works like 

mbirth « CTOD( "3/10/61- ) 

? CDATE (mbirth) 

* Result: Mar 10, 1961 

FoxPro users can use a built-in function 
called MDY, which returns the date in the 
first format above. However, the year por- 
tion is dependent on the SET CENTURY 
setting. For example, MDY(mdate) re- 
turns "March 10,61" with SET CENTU- 
RY OFF (note that "19" is missing). In 
addition, CENTURY defaults to OFF. 

To ensure a complete four-digit year, 
you may be tempted to build a UDF that 
locks in the century setting: 

FUNCTION mymdy 
PARAMETERS mdate 
PRIVATE eavecen, rdate 
savecen c SET ( "century" ) 
SET CENTURY ON 
rdate «= MDY (mdate) 
SET CENTURY 4 savecen 
RETURN rdate 

This saves and restores the current century 
setting while returning a date guaranteed to 



have four digits. However, you'd be well 
advised to resist any such temptation, 
since Mr. Dans's much shorter CDATE 
function executes about 15 times faster 
than mymdy and accomplishes the same 
thing. 

CONVERTING NUMBERS 
TO WORDS 

Pm submitting a FoxBASE 2.01 program 
that converts a numeric amount to its En- 
glish Equivalent— a facility necessary in my 
invoicing program. 

Alfredo Conde 

MIA Airport, Philippines 

A common application for this 
i n technique is printing checks. Mr. 
Conde's original version worked 
quite well, but only for amounts up to 
$999,999.99. Such a limitation won't do! 
The N2W procedure in Figure 1 has been 
changed so that it works with numbers up 
to $999,999,999,999.99 (Just in case 
you 'd like to place a deposit against the na- 
tional debt) . In tests against a file of 50 ran- 
dom numbers, it worked fine. 

To see how it works, try the following 
example: 

SET PROC to NWORDS 
? N2W( 150.99) 

* Result is* 

* One Hundred Fifty Dollars and 

* 99/100 

You should note that this routine works in 
FoxBASE + . It does not work in current re- 
leases of FoxPro (through 1.2). 

LEFT-PADDING WITH ZEROS 

Recently I faced a perplexing dBASE prob- 
lem. My client wanted a database unloaded 
in SDF (System Data Format) with all nu- 
meric fields zero-padded to the left of the 
most significant digit. How easy, I thought. 
Simply define the field as character data 
and use the STRO function to convert any 
numeric data to character data. But the 
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systems 
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and CAPS LOCK keys. Keep 
them as shown or put them in a 
standard IBM enhanced layout; 
CAPS LOCK next to "A", ALT 
next to space bar, CTRL under 
SHIFT On the right, ALT and 
CTRL interchange, too 

• Swap the right Backslash and 
Asterisk keys— it's up to you! 

• Twelve F-keys on the left— for 
quick access to CTRL, ALT, 
SHIFT combination commands! 

• Inverted T-shaped cursor control 
keypad 

• Separate calculator-style numeric 
keypad with added equals key- 
great for spreadsheet users! 



Large l^shaped Enter, double 
size Backspace, two oversized 
Shift keys— easy to hit ... reduces 
typing errors! 

LED indicators: shows Scroll, 
Caps, Number lock status at a 
glance 

Double injected key caps for long 
life and durability 

ALPS click/tactile mechanical 
key switches for a crisp, 
responsive feel and faster, more 
accurate typing 

Non-skid design! OmniKeyl 102 
has a heavy steel base for 
durability. Weighs 4.6 lbs.— won't 
slide around no matter how fast 
you type! 

Keys color coded for use in Word 
Perfect 

FCC Class B Certified 
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NWORDS.PRG 



* NWOROS . PRC 

* convert' numbers to words 

*•*•■**••»•••••••*•••••*•••«*•«**•••*•**•••***+#+•••••••« 

PROCEDURE n2w 

PARAMETERS m__n umber , *." tt paaa numeric value 

* 

* Return "Invalid number* it out of range 



IF (m_number <- 0) .OR. (a_number^> 999999999999.99) 
RETURN "Invalid number" . ■ 

• initialize ■■ •' " ' *v '"^-V" ' ■ ■ 

• . ; .• .*>-';•.*; ^sl^:",/.' ■ ■ . - ■ 

word - [] -'^■K-' • " 

orig - ta_nuiabe r • 

cents 7 f^number - INT(m__mimber) >*10B 

•If less than 51-06, start with "lero* 



IF INT(m_number) » 0 
word - (tero J 

EKDIP ■ 

• Set Up Arrays . ^ '■ 

• ."' 

DIMENSION mono (19), mten{9-) 
mone( 1) - (one J 
mone(2 ). • (Two ]. 
mone(3) - (Three J 
mone(4) • (Four J 
none (5) * (Five J 
mone(6) - (Six ) 
mone(7) • [Seven J 
mone(6) - [Eight j 
none (9). • [Nine ) 
none (10) - [Ten J 
none (11) » [Eleven ] 
mone{12) - [Twelve j 



: ;.y^j; 



- f 1 ^ * 



j-'- r.- ' *■ ■ 



I >>. 1' - 



....-> a:.. 

"l ':'r! l 



mone( 13) 
-mone( 14)- 
. mon»( 15) 
raonef 16 ) 
none ( 17) 
mono (18) 
mone( 19 ) 

mten(i) « 
lmten(2) < 
raten(3) • 
mten(4) ■ 
mten( S);> 
mten(6) « 
mten(7) * 
mten(8) « 
nten(9) " 



• [Thirteen]';- 

■ [Fourteen J- 
■= [Fifteen } 

■ [Sixteen ]-. 

■ (Seventeen ] 
- (Eighteen ) 

■ (Nineteen ] 

[Ten j 

(Twenty ] \ 
[Thirty ) - . ' 
[Fourty J 
[rifty ] 
[Sixty j 
[Seventy J. 
[Eighty ] 
[Ninety ) 



* ~ ( Handle billions 



"x »*lwT(m number/ 1990000000 1 " ".i*T:---"-. 
- if . x >■ 0 ' • -X^A "£ ■. 

: .'oo'mxvorda with x, word : ."." ! '-> 
•■■word - word + [Billion] /--S^v^" 1 '^ 
ENDIF ,.- - " 

m_number - m_n umber - (x * 1000000006) 

* Handle millions ^--^ 



,Y ■ 



x «=■ INT{ra number/1000000) 
if ,x > 0 ~ 

DO mxwords with x, word - 
- word - word + (nil lion ) 
ENDIF . . -I 

m_number • m_n umber - (x * 1000000) 

■ * 1 Handle thousands ' v ^' 

x - INT(m_number/1000) ' ■*;. 



■■v-^.c: 



Rgure 1 : This procedure converts numbers into their English equivalents. 
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Megamate 2.8 comes complete 
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- with Megamate 2.8! Call Micro 
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nearest you. 

1.4MB version also available. 
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keep your product at the top of the bit 
parade. Gall today for information: 
Jennifer Locke, Reprints Manager 
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NWORDS.PRG 



t_'~' - 

■ *IP x.> 0 

DO mfcvords WITH 
word ■■ word 
END IP 

m number a a 

■ iV.- # " vv. 
- Handle the 

..' IF m' number 



2 of 2 





■STR"("numb)'".j;\ 
DO WHII£>SOBSTR<nstr,l; 1)-' 
.^nstr.-- S0BSTR(riatr,2 ) 

ENDDO - '--.^io^VU'w ' 

do 'While < * - ;~<v ns tr ) 
^nlen - LEH(hstr) s% 
,<UnlooJc - VAL( SUBSTR t nstr, 1,1>) 




^do case • : 

^ case - nl en? - * 3 : ; . - - ? ;~ ' - 



string;- -* string »one ( nlook ) 
:^^*^fltring ::«' string +'. "Hundred ",r . 
■ ~ nst r .■ - xSOTSTR ( ns t r , 2 > ' - ■ 
case : nlen.-«>24"~-' '^"k. 



* jrt. 



".*.'" 'f* 
■vis** 



'■'2 




1,2))) 



C:TF VALVstJBSTR(nStr',i,2))f>** 2* 



string -string + aten(nlook) 
nstr : *l.S0BSTR(n8tr,2) 



RETURN word 
• procedure: MAKE 



: .'}.*CASE nlen •"!•*' T ' 



C'T 



-PROCEDURE mXwords 
PARAMETERS numb 
v • • private nstr 



V -"' string "string + mone(nlook) 
nstr -, ; ';/^>.V •'• 

■ ■ V" EHDCASE • " - - .* A -V ■ . '-" - 



V'ENDCASE 
ENDDO * - 
RETURN." * 
* ,eof -:f'/? ', 

















m 


"'A f* 

- . 




- v' J ' 
- '\ • 


■ '4 



STR() function doesn't left-zero-pad. So I 
came up with a technique that combined 
the STR(), SUBSTRO, and STUFF() func- 
tions. The example that follows will left- 
zero-pad a seven-position field containing 
the number 257: 

STORE STR<257,7) to X 
STORE 1 to I 
DO WHILE I <° 7 

IF SUBSTR<X,i,l)»' ' 

STORE STUFF(X,i,l, '0' > to X 

END IF 

STORE 1+1 to I 
ENDDO 



Terry Blankenship 
Brentwood, Tennessee 

I | jy Numeric formatting is a more 
gl] common operation required by many 
fa gJMlli business programs. This technique 
does the job but may be shortened. It can 
be made to work with any length string by 
including the SUBSTR comparison as part 
of the DO WHILE loop: 



If your dBASE implementation supports 
user-defined functions, you can create one 
to do the converting and padding like this: 



* PROCEDURE ZNUM( number, elen) 
* 

* This function converts a number 

* to a string of length elen left 

* padded with leading zeroes. 

* Returns the string. 
* 

PROCEDURE ZNUM 
PARAMETERS number, slen 
STORE 1 to I 

STORE STR( number, slen) to string 
DO WHILE SUBSTR ( string , i , 1 ) - ' ' 
i^storeT stuff ( Btr'ing ,; i T>i# ' 0 ' ) ^9 : 

STORE 1+1 to I 
ENDDO 

RETURN string 



tions called PADL, PADR, and PADC to 
left-pad, right-pad, and center-pad, re- 
spectively. If you're using FoxBASE+, 
here's a handy emulation of FoxPro's 
PADL function: 



PROCEDURE PADL (string, 
padchar) 



length, 



STORE 1 to I 

DO WHILE SUBSTR(X,i,l)«' ' 
STORE STUFF(X,i,l, '0' ) to X 
STORE 1+1 TO I 

ENDDO 



To use ZNUM in your program, you could 
type 

string * ZNUM(2 57, 7) 
* -0000257- 



This UDF left padB a string to 
length characters padding with 
character padchar. It is similar 
to FoxPro's PADL in that it 
truncates the string if the 
string is longer than length, and 
does not trim leading or trailing 
blanks on the incoming string. 



PROCEDURE PADL 

PARAMETERS string, length, padchar 
IF LEN( string) > length 

STORE SUBSTR( string, 1, length) TO 

^Jetring^;,^ , . ^ 

END IF 

DO WHILE LEN( string) < length 

STORE padchar + string TO Btring 
ENDDO 

RETURN string 



s-.--.i- 



i 



Readers will be interested to note that Fox The PADL function accepts three argu- 
Software's FoxPro includes built-in tunc- ments: the string to pad, the desired length. 
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and the character to use for padding. You 
could use it in your programs like this 



string 



1 «= PADL<-257-,7,-0*) 



* stringl - -0000257" 
string2 = p ADL ("257", 7,"*") 



* string2 



♦•*257 



If you're using dBASE IV or FoxPro, an- 
other alternative is the TRANSFORM 
function. This function lets you apply PIC- 



FoxPro includes built- 
in-functions that J : ; 
enable users to left- i/ 
pad, Tight-pad, and 
center pad. . V. 



* \. - ^ -*•- 



TURE formatting to character, logical, 
date, and numeric data and returns the re- 
sulting string. 

The function codes for leading zeros 
and right justification are L and R respec- 
tively, so the following does the trick: 

. stringl = TRANSF0RM(257,"GLR 
9999999") 



* stringl 



0000257 



LET US HEAR FROM YOU 

Share your database experience, tips, and 
techniques and we'll .pay you $50 for any 
submissions we print. Submissions must 
be made on-disk; be sure to include a print- 
out, too. Mail your contributions to Data- 
bases, PC Magazine, One Park Avenue, 
New York, NY 10016, or upload them to 
PC MagNet (see the tk By Modem" side- 
bar in the Utilities column for instruc- 
tions.) * 



Research for this article was provided by 
Salvatore Ricciardi, a New York-based 
consultant and frequent contributor to PC 
Magazine. 



ith PathMinder+'$ Reconfigurable 
User Interface (RUI) and a mouse, 
you can easily create an interface for anyone 
from a secretary to the CEO. 

The power of RUI is limitless. If 
you have a novice user and you don't want 
them to erase files, no problem. Just remove 
the erase command from the menus and 
your worries are gone. If another person 
knows how to use their word processor and 
doesn't have time to learn to use PathMin- 
dcr+, you can make PathMinder+'s keys 
mimic their word processor. Best of all you 
can customize each user's interface without 
any programming. With a few keystrokes 
or clicks of the mouse you can layout an 
entire user environment. 

Unlike the competition, PathMin- 
der+ gives you a complete communications 
package by Crosstalk, not just E-mail 
capability. PathMinder* is the disk 
management system that can provide all 
this power to everyone. 

With Path Minder + you can tailor 
the program to fit the user's needs and ex- 
perience level. When it comes to managing 
data, you'll find PathMinder+ is the easiest 
way... and the best way. So, go ahead and 
give PathMinder+ a try. 



T)ie Secretary 



✓ 

✓ 
✓ 

✓ 
✓ 

✓ 



Reconfigurable User Interface (RUI) 

Application Management 

File Management 

Directory Management 

Data FileViewers 

System Log 

Mouse Support 

Communications 

Text Editor 

and MORE 
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What Will the Change of 
the Millenium Do to Our 
Data Processing Systems? 



The arrival of the next century, the year 2000 
has implications which must be P»annedft* 
by data processing professionals. Current 
computerized information systems stojedates 
in Gregorian (YY/DDD), Julian (MM/DD/YY) or 
standard (YYMMDD) formats; these formats 
use no more than two digits to describe i the 
year Two digits are not enough for an orderly 
representation of dates at the end of the cen- 
tury with respect to dates at the beg.nn.ng of 
the 21st century. 

To make the matter clear, consider the follow- 
ing example. In medical insurance claims pro- 
cessing, the system checks each i clairr .to _see 
if the policy effective date is before the date 
of medical service for which coverage is 
claimed. Suppose the policy effective date is 
Aoril 1 1997, and medical service was ren- 
dered after the effective date, namely on April 
1st 2002. The traditional system would com- 
pare the dates represented in standard for- 
mat. The test would incorrectly rejectthe 
claim since 970401 is greater than 020401. 
This is a simple example and the knowledge- 
able reader will probably be able to construct 
many other examples. 

The problem lies with the fact that two signi- 
ficant digits to describe the year wrtl not be 
enough. Furthermore, since at the end o this 
century the millenium changes too, three 
digits are not enough either. 
The necessity of changing the date format 
will be felt both in the areas of system design 
and in maintenance. As the end of the century 
approaches, systems analysts w.l become 
aware of the fact that the life expectancy o fa 
new system being designed will go past the 
end of the century, and the problem will be 
tackled in the analysis phase. 



In other cases where no special provisions 
will have been made for handling the new 
date format, maintenance projects will be 
undertaken. The size of a maintenance pro- 
ject to change the date format of a system is 
not a negligible one. A simple example is of- J 
fered by the zip-code change from five to nine 
digits Although no time pressure for the 
change has been applied in most cases, the 
change requires a considerable amount of 
maintenance effort. Online programs, batch 
programs and data stores have to be con- 
verted The elements of the system which are 
affected by the change have exceeded the 
number of those which actually process the 
zip-code information. Programs and data 
stores had to be converted just for the sake of 
system consistency. In the case of the date 
format change, the aggregate impact on the 
data processing industry will definitely be 
large since this change will have a deadline. 

Systems to undergo date format changes will 
be primarily systems which will, at that time, 
function beyond their initial projected lifetime 
It is precisely the systems which are designed 
today that are most likely to face this Problem 
It is the systems we design today which will 
have exceeded their lifetime and for which or- 
ganizations will find it more difficult to justify 
maintenance work. 

The high personnel turnover in the DP indus- 
try is a factor which indirectly contributes to 
the deferment of the date format change prob- 
lem Most of the individuals who are likely to 
be responsible for ensuring proper functional- 
ity of the DP systems at the turn of the cen- 
tury will probably face the problem in a differ- 
ent position or place then they are now. The 
result: too little attention is currently being 
paid to the issue in question. 

The following are recommended steps in the 
analysis process by which necessary date 
format changes are identified and solutions 
developed: 

1 identify the date comparisons. 

2. Identify the sort procedures which involve 

dst© Roys 

3 Identify whether date comparisons and 
' sorts are performed for dates across dif- 
ferent periods like months or years. 

4 Estimate how long the problem will persist 
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if no change is undertaken and evaluate 
the cost of making no system modification. 

5. Design the program and data store changes. 

6. Develop a conversion and implementation 
plan. 

The system changing needs will vary widely 
from one system to another. As two extreme 
cases, an insurance system will typically need 
many modifications, while in an accounting 
system the problem can be eventually solved 
by judiciously handling the closing periods. 

Systems which are currently being designed 
should explore the impact of the millenium 
change. As the end of the century approaches, 
each organization should at least initiate a 
major analysis project to estimate and evalu- 
ate the impact of the date change and decide 
upon one of the following four alternatives: 

1. Accelerate the termination of the old sys- 
tem and replace it with a new system which 
is able to handle the date transition. 

2. Modify the existing system, in, which case 
design, planning and conversion has to 
take place. If data structures are being 
changed as a result of the modification re- 
quirements, then the project will be of con- 
siderable size and adequate use of data- 
base dictionaries can help the conversion 
process. 



3. Modify the system locally. In this case, 
careful analysis must be conducted to 
identify the boundaries of the change. 

4. Do nothing. 

There will be a great variability of the degree 
of impact from one system to another and 
from one organization to another. No auto- 
matic conversion will be possible and skilled 
technical professionals will be needed to 
carry out the changes. It is even possible that 
the date format change will have an impact 
on the job market, creating an excess de- 
mand for qualified programmers and possibly 
an excess supply of such individuals when 
the crisis is over. The date change problem at 
the end of the millenium should not be under- 
estimated and the time has come for analysts 
and DP managers to think about it. 

Dan R. Pieptea 

The University of Texas at Dallas 
Richardson, Texas 
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IBM's recent announcement of VSE/ESA Version 2 
positions this operating system firmly in Ihe open, 
client/server computing environment IBM calls this new 
version the "power server for the 1990s. " In his article on 
page 22, Eric L. Vaughan presents a detailed look at the 
new VSE and how it fits this new designation. 
Cover illustration by John H. Foote 
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DateServer 2000 

Computer Software Corp. Prepares 
Legacy Systems For Year 2000 



For many organizations, 
preparing legacy sys- 
tems to correctly proc- 
ess multicentury dates will 
Kkely require a major expendi- 
ture of time and money over 
the next few years. Changes 
must be made to all applica- 
tion systems that make date 
field comparisons or calcu- 
lations using date field val- 
ues with only a two-digit 
representation for the year. 
Computer Software Corp.'s 
DateServer 2000 software 
offers a unique solution to 
significantly reduce the time 
and effort to prepare for 
processing in the year 2000 
and beyond. 

The conventional approach to the year 
2000 problem is to expand date field 
sizes to provide for date values with a 
four-digit year. This file-conversion, or 
"sledgehammer," approach is a costly 
solution for most enterprises. It requires 
special programs to convert all date 
fields within all databases. Changes to 
all existing input screens and files are 
also required It requires coding changes to 
all current programs that process the new 
input dates and the converted databases as 
well as changes to all output screens and 
reports. Finally, this conventional ap- 
proach requires the testing of all the new 
and changed programs, and a great deal of 
coordination during the actual system con- 
version and implementation. 

No Database Conversions 

In contrast, the DateServer 2000 solu- 
tion eliminates the requirement to con- 
vert any files or databases. Using the 
familiar CALL statement interface, pro- 

10 
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grammers can access DateServer 21 
routines to make date field comparisons 
or calculations on all date fields in their 
. present database formats. During pro- 
gram execution, DateServer 2000 rou- 
tines will assign the appropriate century 
value, based on the system's current date 
and DateServer 2000 installation param- 
eters, to correctly perform requested date 
comparisons or calculations. 

One Program At A Time 

Eliminating the need for file or 
database conversions and the require- 
* ment to expand input or output date for- 
mats, the DateServer 2000 solution 
simplifies the preparation and coordina- 
tion efforts required to process multicen- 
tury dates. Application programs may be 
changed, tested and implemented one 
program at a time without worry about 
complex database interaction with other 
on-line or batch programs. Rather than 
having to fit a major database conversion 
into a busy project schedule, these appli- 
C1RCLE #74 on Reader Service Card ▲ 



cation -program changes 
could be merged with other 
project testing. 

DateServer 2000 software 
provides a comprehensive, 
efficient and convenient set 
of routines for date compari- 
son, calculation and/or ma- 
nipulation. The routines 
support 36 date formats in- 
cluding character, packed 
and binary Gregorian and Ju- 
lian dates, and day of week 
and relative day values for 
all dates in the Gregorian cal- 
endar. The routines perform: 
date validation; date compar- 
ison; conversion from one 
format to another; determina- 
tion of day of week and relative day val- 
ues; calculation of the difference 
between any two dates in number of 
years and/or days; and determination of 
the date resulting from the addition or 
subtraction of any number of days to or 
from a given date. 

Even enterprises that choose the file 
conversion approach for some legacy 
systems could still use the DateServer 
2000 solution for other systems. 

Computer Software Corp. offers ver- 
sions of the DateServer 2000 software to 
operate in either an IBM MVS or IBM 
VSE environment. A CICS demonstra- 
tion program is also included for CICS 
users. Priced on a tiered basis with mul- 
tiple-site discounts, DateServer 2000 
software is available starting at $ 10,000. 
For more information, contact Computer 
Software Corp., I9I00 Detroit Road, 
Cleveland, OH 441 16, (800) 908-2000, 
Fax (216) 333-8288, or (216) 333-9080 
outside the United States. 5 

— Chris Roberts 
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THE YEAR 2000 PROBLEM: 
THE SERIOUS PROBLEM 
IGNORED BY THE ENTIRE DATA PROCESSING COMMUNITY! 



As this is being typed, the date is: 12/14/83. 

16 years, 17 days later, the date will be:. . . .12/31/99. 
The following day's date will be: 01/01/00. 

Take another look at that date — 01/01/00 — doesn't it look a bit odd? Exactly 
what year is it? Is it the year 2000, the year 1900, or some other year? 
"By that time", You might say, "I'll just assume it means the year 2000." 
Congratulations. You're smarter that any computer that's ever been made. 
Unfortunately, almost all of the software written up to now in COBOL, PL/I, and 
most other languages has neglected to include logic to process 21st Century 
dates properly. If nothing is done about this, when the year 2000 arrives, you 
will be unable to enter it into your systems so that your system will recognize 
that it is greater than the year 1999, and a great deal of your software either 
won't run or will produce unpredictable results. 

This predicament is due to the fact that the standard DP practice has been to 
maintain two-digit year dates on data files, rather than four-digit year dates. 
Year 2000 data, when entered, will have to be represented by the two-digit year 
"00" which will compare and sort as being less than all 20th Century dates 
previously entered, as well as causing other difficulties. See EXHIBIT A for 
details . 
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THE MAGNITUDE OF THE PROBLEM 



If this problem is allowed to progress unchecked until the year 2000, the 
consequences will be disastrous. How could any company operate if its accounts 
receivable, payroll, and billings systems won't function? If its online modules 
will not accept the current date? If its production and inventory systems are 
down? Without a doubt, any company or institution that fails to take corrective 
action early on will be in severe trouble, because there is no easy way to fix 
this problem on a short-term basis. A company with even a moderately sized 
library of personalized software would have to spend a fortune, millions of 
dollars, to correct this problem on a short-term basis, and it could not be done 
quickly. 

Your company probably has at least 50 production programs for every programmer 
you employ. If 50% of these programs had to be individually modified (figuring 
$300 per modification — 10 hours at $30/hr., a very conservative estimate), it 
would cost your company roughly $7,500 per programmer for program modifications 
alone, and additional file update programs and JCL modifications would be 
necessary for external sorts. 

Divide the number of programmers your company employs by 120 and that's roughly 
how many million dollars you'd have to spend to fix this problem now, and it 
would take you a minimum of six months to do it, assuming half of your 
programming staff worked full-time on nothing else. And you are most certainly 
not alone. This serious problem exists not only in virtually every sizeable 
American company and civic or governmental institution, its pervasiveness is 
WORLD-WIDE in scope. Has an unrecognized business problem of greater magnitude 
ever existed 
previously? 
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WHY A SOFTWARE FIX IS HIGHLY UNLIKELY: 



The mind-boggling complexity of modifying programs and JCL to process year 2000 
data makes this problem prohibitively difficult to handle by software. 
To begin with, there presently are no industry standard naming conventions. How 
could a piece of software tell which fields within a program's data division are 
date fields? It certainly couldn't assume that a 9(5) COMP-3 field is a date 
field. What would be the key? 

Similarly, one can't distinguish, by looking at JCL and control cards, which 

sorts have dates as control fields. This sort control card field specification: 

SORT FIELDS= (1, 3, PD, A) may or may not be a date. There is no way to tell. 

In order to revise programs to process year 2000 data, a program's logic must be 

deciphered, working-storage fields physically altered, arrays reworked, and so 

on. 

A great many companies have their own idiosyncrasies, such as using single digit 
month fields and embedding date representations within product numbers . 
Consider that no two programmers code the same way, that coding standards at 
different installations vary greatly, and that, if nothing is done, there will 
be MILLIONS upon MILLIONS of different programs in many different languages 
needing modifications by the year 2000. 

The potential input combinations for a piece of software would be virtually 
infinite . 

For these reasons, it is improbable that a software package could be designed to 
handle this task. Even if it were, it probably would be extremely expensive, and 
there would still be the expense of reprocessing most of your software. 
Fortunately, the matter is now academic, because an effective preventive plan of 
action — complete with the necessary "tools" — is now available at almost no 
cost . 

Companies that employ the Charmar Correction will have no need for such a 
software package. 
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WHY NOTHING IS BEING DONE: 
(or Don't Blame Your DP Manager) 

All data processing managers share 0 a common condition: they are on the firing 
line and swamped with work. Most installations have years of work backlogged. 
At any one time, a DP manager has a score of people on his back demanding 
priority attention for their pet projects. 

Therefore data processing is a rough and ready, high-pressure process in which 
only the most pressing problems are attended to. "If it works, don't mess with 
it" is an axiom of data processing. 

The year 2000 problem is, or should be, the proverbial exception to the rule. 
At the moment, few if any non-DP managers have even an inkling of the problem. 
A competent DP manager will be aware that handling year 2000 data might be 
difficult. But since nobody who matters is screaming about it, to him the 
problem is highly deferrable. 

Because he hasn't been confronted by an urgent need to analyze this problem, 
he's probably unaware that: 

1. A software fix is unlikely; and 

2. The best way to attack this problem is through 
preventive action now. 

Because of this, companies, even the high temples of data processing, continue 
to perpetuate the problem. 
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THE TIME TO ACT: NOW. 



Current program longevity patterns indicate that if you implement the Charmar 
Correction during 1984, more than 97% of your production programs would be 
year-2000-compatible by the arrival of the year 2000 without having to have been 
modified to make them so. 

If, however, you waited until the year 1990 to implement the Charmar Correction, 
only about 75% of your programs would be year-2000-compatible by the year 2000 
without needing modification, in other words, 25% of all your programs would 
have to have been modified, a major waste of time and money. 

Depending on the size of your program library, failure to act promptly can cost 
you thousands or millions of dollars more and more the longer you delay. 
If your primary programming language is COBOL, you may test this finding by 
scanning your production program libraries for the literal "DATE- WRITTEN" to 
compile percentages of existing programs more than 10 or 16 years old. 
The relevant question is this: why should your company continue to write 
programs that are not year-2000compatible when, after a brief initial 
realignment, it is just as easy to write programs that are? 
Obviously the time for the Charmar Correction is now. 
Why wait? 
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THE FOUR-DIGIT YEAR: 
PART OF THE SOLUTION. 



The "right" way to solve the year 2000 problem would be to require that all new 
programs contain a four-digit year in every date field, and to devise a way for 
existing (two-digit year) systems to interface with the new systems. 
In a four-digit year system, the ye'ar 2000 would compare as being greater than 
the year 1999, program modifications would be unnecessary, and sorting by date 
would pose no problem. 

Unfortunately, the two-digit year date is too firmly entrenched in existing 
systems and data files for this to be practical. New programs usually have to 
refer to existing data files, all of which contain two-digit year dates. 
Conversion programs would be necessary for sequential files. Duplicate includes 
or copy members for file formats would be necessary, and so on. 
For these reasons, it is impractical to require that all new programs use 
four-digit year date fields. 

However, there are good reasons for requiring that all new data files created by 
your company have four-digit year date fields, one being that these fields may 
eventually accumulate data spanning a century in duration, a built-in limitation 
of the two-digit year date field. 

So much for the general background. Now let's move to the solution and how to 
apply it at your installation. 
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THE CHARMAR CORRECTION: 

THE BASIC PRINCIPLE: 
SOLUTION BY ATTRITION. 

Require that, effective immediately, all new programs and JCL must include the 
necessary logic to process 21st Century dates, and the year 2000 problem will 
virtually solve itself through attrition by the year 2000. 



THE TWO BASIC CORRECTIVE ACTIONS: 

1. Require that all new programs written using existing two-digit year date 
data call the 'YR2000 1 subroutine for comparisons of dates, as well as date 
editing, conversions, and elapsed time calculations. 

2. Establish the policy that all new data files will contain four-digit year 
date fields. Use the 1 FDYEAR' subroutine for these fields. 
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RECOMMENDED POLICY 
FOR THE YEAR 2000 PROBLEM: 

Your company's policy for the year 2000 problem should: 

1. Implement the Two-Digit Year Directive (which appears on the following page) 
utilizing the 'YR2000' subroutine/ This procedure addresses the bulk of the 
problem by correcting current — and harmful — standard programming practices 
based on the two-digit year date field. 

2. Require that all new data bases and data files created contain four-digit 
year date fields. Use the ' FDYEAR* date subroutine for these fields. 

3. Forbid the purchase of new programming languages or software packages that 
are not year-2000-compatible . 

4. Identify all non-standard date processing idiosyncrasies existing within your 
company 1 a DP environment (i.e. systems using product numbers containing date 
representations, etc.). Determine which of these conditions are (a) not 
year-2000-compatible and (b) likely to exist by the year 2000. Analyze each for 
corrective measures and implement them forthwith so that these problems will not 
continue to be compounded . 
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THE TWO-DIGIT YEAR DIRECTIVE: 
SPECIFIC STEPS FOR REMEDYING 
THE YEAR 2000 PROBLEM IN TWO-DIGIT YEAR SYSTEMS. 



1. Require that all new programs wxitten contain logic to process year 2000 
data. For languages capable of executing a COBOL subroutine (COBOL, PL/I, etc.), 
this can be accomplished by (a) implementing the 'YR2000' subroutine and (b) 
distributing the "NEW DATE PROCESSING POLICY" sheet (EXHIBIT B) to all 
programmers and enforcing compliance to it. 

2. A few of your existing date fields may contain dates earlier than the 
, YR2000' subroutine default value. Compile a list of these fields and their 
override values for distribution. (EXHIBIT C) . 

3. Discontinue writing new programs in other languages until they have been made 
year-2000-compatible . 

4. When sorting records by date, employ a user-exit routine so that revisions 
will not be needed by the year 2000. (This will only be necessary until the 
providers of sort software wake up and incorporate this badly needed facility 
into their packages. See EXHIBIT D. ) 

5. Consistently mark new year-2000-compatible programs and JCL so they are 
easily identifiable as such. See EXHIBIT E. 

6. Over the years, regularly monitor the volume of "old" programs and JCL 
remaining. If and when it becomes advisable, you may want to: 

A. Establish the policy that whenever an "old" program or JCL stream 
happens to require modification, it must be made JCL year-2000-compatible . 

B. Actively begin modifying the remaining "old" programs and JCL 

on a systematic basis so that by the year 2000 all of your software 
will be year-2000-compatible. 

7. Finally, prior to the arrival of the year 2000, simulate test runs of your 
vital systems with year 2000 input to discover and correct any remaining 
problems . 
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On January 1 , 2000 many 
applications will stop working 
properly. Most utilities and 
applications express the year as 
the two low order digits of the 
full representation of the year 
so that dates in the new century 
will appear to occur before dates 
in the old. When this phenomenon 
occurred in the past humans 
adapted quickly, and no great 
dislocation occurred. 

Unfortunately, the computer 
is not as adaptable or reasonable 
as the human* 

This paper presents one 
possible solution to the problem, 
at least in the APL environment. 
This solution involves replacing 
date fields in files and records 
with a pseudo- Julian day number 
(PJD). This number permits the 
analyst to use date information 
arithastically to determine 
j c 5 +he ? j**ek . the period 
between dates, create lists of 
dates, etc. The PJD is easily 
converted to or from human-usable 

Permission to copy without fee all or part of this material is granted provided that 
the copies are not made or distributed for direct commercial advantage, the ACM 
copyright notice and the title of the publication and its date appear, and notice 
is given that copying is by permission of the Association for Computing 
Machinery. To copy otherwise, or to republish, requires a fee and/or specific 
permission. 

• 1990 ACM 089791 -37 1-x/90/0008/0364...$ 1.50 



canonical date forms. Finally, 
the technique defers difficulties 
due to changes o,f year, century, 
millennium, etc. indefinitely. 

In the later sections of the 
paper some thoughts on possible 
extensions to the leap-year 
algorithm are discussed. The new 
terms would improve precision 
without affecting the past or 
present. Finally, sample 
functions which support and 
utilize this "perpetual" calendar 
are given. 

It must be emphasized that 
this paper represents a solution 
only within the APL environment. 
The concept is applicable in any 
environment, language or system 
but only if it or a similar 
solution is adopted before 
December 31, 19S9. If we users 
of APL recognize and fix the 
T3T ^v,i i n our environment while 
th» rest of the computing world 
ignores it, the problem will 
still affect avaryone, including 
us . 
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PREPARING FOR 2000 — On the first day of the next decade, millions of 
Cobol programs may be wrong 
John Xenakis 

Hidden within the billions of lines of code that make up software programs 
across the nation is a time bomb. On the first day of the next decade, the 
first of the next millennium, millions of computer programs written in Cobol, 
PL/1, and other languages, will start giving out the wrong answers. 

The problem is the way in which standard programs have represented dates . The 
only standard way the current date is identified in a Cobol program returns 
the date in the six-digit form YYMMDD, with two digits for the year. Feb. 26, 
1990, for example, is represented as 900226, and Jan. 1, 1991, is represented 
as 910101. The former is smaller than the latter, so the computer assumes 
that the first date is earlier than the second one. And almost all Cobol 
programs depend on that fact to determine the answers to questions related to 
such things as inventory expiration and interest computations. 

But on Jan. 1, 2000-that is, 000101-those comparisons will fall apart. 
Programs which depend on such computations will get the wrong answers. Even 
standard sort utilities, which arrange records of a file in order by date, 
will fail. In order to work correctly, these programs and files will have to 
be modified to store a four-digit year, such as 19900226 or 20000101, in the 
format YYYYMMDD. 

"About 75% of all the Cobol programs out there are going to have to be 
modified, 11 says William Strapko, an analyst with market researcher 
International Data Corp. in Framingham, Mass. "The biggest problem is to 
convince management that they 1 re going to have to dedicate a fair amount of 
resources in order to resolve this problem. It won't be easy." 

"Can you recompile old programs and have them run correctly?" asks Carl 
Cargill, a standards consultant at Digital Equipment Corp. in Maynard, Mass. 
"That will be affected by how well the programs were written. The IS managers 
who hired cheap entry-level programmers got the job done cheaply, but now 
they're going to have to pay for it." 

Of course, many programs were written carefully to start with. "In my last 
life, I used to work on an international banking system," says Marc Sokol, 
executive VP at Chicago-based Realia Inc., a vendor of Cobol compilers. "We 
had to keep track of maturities that expired in 20 years, so we were very 
aware of the problem." 

Bill Schoen, an independent consultant in Clarkston, Mich., points out, 
however, that such prescience is rare. "I've worked as a consultant to 
Chrysler, Ford, and EDS Electronic Data Systems Corp.!," he says, "and I know 
they've done very little so far to handle this problem. I can guarantee that 
even many systems being written today are going to fail in 2000." 



DEC's Cargill says computer and compiler vendors are going to be under 
pressure to help their customers. "The user will say, *I have a lot of money 
invested in your equipment, and I'm going to invest a lot more. What are you 
going to do to fix this? 1 The problem is that the user will have to 
convert his own programs." 

To aid conversions, the ANSI Cobol standard has recently been modified to 
accommodate a new intrinsic function named Current-Date, which gives the 
current date with a four-digit year. Vendors are required to implement this 
function within two years if they wish to remain compliant. 

Some IS managers are hoping for a" program that will convert old Cobol 
programs to use the new intrinsic function automatically, but Schoen says a 
lot of manual work is still needed. "Even if new technology caught 98% of all 
the errors, the other 2% will be a disaster." 

In fact, there is a precedent for this situation. In 1979, the U.S. Postal 
Service went from a five-digit zip code to a nine-digit zip code. "It was a 
horror show," says Cargill. 



The difference, of course, is that you don't have to change your zip code 
software. The year 2000 won't offer that choice. 



